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本 书 是 用 来 帮助 学 生 以 及 在 日 常事 务 中 需要 用 到 数学 知识 的 技术 人 员 学 习 Mathematica 
的 . 计算 机 软件 系统 Mathematica 可 以 进行 复杂 的 数学 运算 这 里 所 来 用 的 教学 思路 很 简 
单 ， 就 是 用 示例 来 帮助 学 习 ， 对 最 常用 命令 除了 提供 很 容易 看 懂 的 措 述 外 ， 还 提供 了 750 多 
个 示例 与 习题 ， 其 每 一 个 都 经 过 精心 设计 ， 以 演示 Mathematica 软件 的 各 种 功能 . 

本 书 介 绍 了 在 代数 、 三角 、 微 积分、 微分 方程 、 线 忙 代数 中 最 常用 到 的 命令 和 选项 ， 许 
多 例题 和 汪 题 都 很 简练 ， 切 中 要 党， 必要 芍 地 方 还 加 上 了 党 明 ， 以 便 理解 . 

我 们 共 为 读音 不 应 只 是 重复 得 到 正文 中 给 出 的 输出 结果 ， 还 应 该 对 代码 进行 一 些 修改， 
得 看 所 做 的 眉 改 对 络 果 的 影响 ， 我 了 认为 这 是 学 习 这 种 独特 程序 的 语法 与 能 力 的 最 有 效 方 法 . 

本 书 前 三 章 对 Mathematica 的 语法 和 风格 进行 了 介绍 .后面 几 章 前 结构 使 得 读者 可 以 只 
在 意 目 己 所 感 兴趣 的 内 容 ， 并 不 必要 全 部 通 谈 . 当然 有 时 候 会 遇 到 在 前 面 章节 中 介绍 的 命 
令 ， 此 时 可 以 利用 索引 方便 地 找到 对 命令 的 描述 . 

无 疑 你 会 为 Mathematica 的 巨大 功能 所 叹 腿 ， 我 也 衷心 希望 你 能 够 应 用 这 个 软件 的 功能 
解决 各 种 数学 难题 ， 尤 其 是 那些 在 前 几 年 还 不 可 能 解决 的 问题 . 

我 也 想 倩 此 机 会 感谢 McGraw-Hill 出 版 社 的 工作 人 人员 在 本 书写 作 过 程 中 的 帮助 ， 特 别 要 
感谢 ]. 勤 纳 先生 对 本 项 目的 鼓励 与 支持 ， 
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1.1 记号 与 约定 


实 答 表明 , Mathematica 语言 通过 试验 是 很 容易 学 习 的 ,我们 的 建议 就 古 读者 已 尽 可 能 多 
地 芝 试 示例 和 忆 题 ,并 通过 改变 选项 和 参数 进行 尝试 .事实 上 ,可 以 认为 本 章 是 一 个 教程 , 帮助 
那些 柜 马 上 使 用 Mathematica 的 读者 着 手 使 用 这 个 软件 . 
为 了 方便 检索 ,我 们 在 新 介绍 的 命令 前 面 加 上 国标 签 , 伟 那 些 与 该 请 令 相 应 的 选项 前 面 加 
上 。 符号 . 
为 了 与 Mathematica 的 约定 一 致 ,所 有 的 指令 部 用 粗 体 Courier 字体 表示 , 而 Mathematica 
人 出 则 用 普通 的 Courier 字体 显示 .如 : 
This line is written in Courier boldface tvpe. 
This line is wirtten 1n Courier regular face type, 
在 正文 中 用 双 箭 头 《 之 ) 表示 荣 单 命令 .例如 ,用 Arial 字体 显示 的 Format 一 StY1a 一 Input 
就 表示 先 到 Format 菜单 ,再 到 Style 子 菜单 ,然后 在 Input 上 点 击 . 
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在 Mathematica 中 不 时 使 用 特殊 记号 ~ ,我们 称 它 为 反 引 号 .不 要 把 它 与 撤 号 滋 清 . 

最 后 要 指出 的 是 ,许多 Mathematica 命令 使 用 箭头 (一 》 表示 命令 内 部 的 选项 , 如 果 原音 
的 话 , 可 以 用 - >( -后 接 >) 来 代 普 . 

本 书 中 所 有 的 例子 都 是 在 Mathematica 版 本 4 下 执行 的 .如 果 用 的 是 Mathematica 版 本 
3,， 那么 要 注意 在 计算 机 上 的 区 别 , 最 带 见 的 差别 有 , 在 版 本 3 中 ,输出 结 采 中 的 自然 对 数 的 底 
显示 为 工 ,而 虚数 单位 显示 为 工 与 版 本 3 不同 ,在 版 本 4 中 则 分 别 显示 为 e 和 i. 在 版 本 4 外 也 
会 自动 把- > 转化 为 一, 把 ! = 转化 为 去. 当然 在 版 本 4 中 还 有 其 他 的 -- 些 增强 功能 ,但 其 
中 绝 大 多数 对 用 户 而 言 是 很 容易 懂 的 ， 
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Mathematica 使 月 指南 


1.2 内核 与 终端 


内 核 就 是 Mathematica 的 计算 引 警 .用 户 输入 指令 ,内 核 就 给 出 反馈 的 结果 ,结果 可 以 是 
各 种 格式 , 旭 数 字 .图形 . 扎 阵 或 其 他 形式 .内 核 在 后 台 无 声 好 工作 , 而且 在 天 儿 数 情形 中 , 用 户 : 
是 感觉 不 到 鸣 . 

在 用 户 与 内 核 之 名 的 界 而 怠 称 为 经 疹 , 终 靖 的 主要 组 成 部 分 是 Mathematica 的 笔记 本 
(notebook) .通过 笔记 本 ,用 户 不 但 可 以 与 内 核 交 流 , 而 且 可 以 很 方便 地 准备 工作 文件 . 

为 了 执行 指令 , 你 需要 先 输入 指令 , 然后 按 交 和 胞 钢 键 . 绝 天 多 数 微 机 键盘 上 都 有 两 个 
[ENTE 阿 键 ,但 只 有 位 于 键 基 最 右边 的 稀 矶 瑞 竹 键 才 会 执行 指令 .另外 一 个 盱 灿 陋 确 键 则 需要 
与 TSHEETj 键 一 起 使 用 , 否则 就 只 是 得 到 新 的 一 行 .如 果 正 在 使 用 的 是 Macintosh 计算 机 , 那么 
注意 不 瞩 把 鸭 NI 寻 键 与 二 RTT 开罗 键 泥 淆 . 

在 下 而 例 1 中 显示 的 图 形 就 是 标准 的 Mathematica 界面 ,和 在 右边 的 符号 枸 成 BasicIinput 
(基本 输入 ) 模 板 , 通过 这 个 模板 , 只 要 点 击 轧 标 , 就 可 以 输入 最 常用 的 数学 符号 . (如 果 在 屏幕 
上 温 有 见 到 这 个 模板 ,那么 点 击 File 地 Palettes 一 BasicInput 它 就 会 出 现 ,} 利 用 File 之 
Palettes 也 可 以 得 到 其 他 的 有 专门 用 途 的 模板 . 

每 个 符号 都 可 以 在 模板 上 点 击 得 到 .如 果 使 用 的 确实 是 模板 , 那么 这 时 笔记 本 就 非常 类 做 
于 数学 教科 书 的 页 面 .本 书 中 的 许多 例子 都 充分 利用 了 Basicinput 模板 , 然而 每 个 Mathe- 
matica 符号 都 有 另外 一 种 描述 性 输入 格式 , 从 而 可 以 直接 用 键盘 输入 ,例如 ,x 可 以 用 Bi 表 
示 , 而 .5 可 以 写 为 sqrt[5]. 对 于 那些 倾向 于 不 使 用 鼠标 的 Mathematica 熟练 用 户 而 言 ,这 些 表 
示 是 非 沉 有 用 的 ， 

在 例 1 中 的 笔记 本 名称 为 “Untitled-1”"， 它 就 是 你 输入 命令 的 地 方 ,而 且 Mathematica 也 
住 这 里 显示 计算 的 结果 ,下 面 的 图 形 显 示 了 例 1 的 输入 和 输出 . (在 Macintosh 计算 机 上 ,显示 
结果 会 稍 有 有 不同,) 


例 1 计算 2 加 上 3 的 结 条 . 
注意 ,内 核 给 输入 表达 式 赋 于 In[1 1] 标签, 给 输出 表达 式 赋 对 Out[1] 标 签 .这 样 用 户 就 可 
以 限 踪 内 核 的 运算 指令 的 顺序 .这 些 标 签 相当 恒 要 ,因为 运算 的 顺序 并 不 一 定 与 指 今 在 笔记 本 
上 的 实际 位 置 一 致 .然而 在 本 书 的 所 有 例子 中 ,不 会 包含 ln 和 Out 标签 . 
尝试 本 书 提供 的 例子 与 习题 时 , 你 有 可 能 发 现 所 得 结 和 采写 这 里 给 出 的 不 一 样 ,那么 这 就 
有 可 能 是 因为 你 已 经 定义 了 有 指定 值 的 符号 .例如 , 假 届 x 已 经 被 定义 为 3, 那 么 所 有 出 现 的 x 
部 要 用 3 取代 .对 十 这 种 情况 , 你 应 当 首 先 清除 所 有 的 符号 ( 见 第 1.5 节 }) 并 再 进行 尝试 .本 书 
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中 所 有 的 例子 和 习题 部 假设 事先 清除 ”那些 人 寿 号 . 

在 Mathematica 的 一 次 运行 中 ,可 以 同时 处 理 几 个 笔记 本 .然而 , 如果 使 用 的 只 是 一 个 内 
核 , 那么 在 -个 笔记 本 内 对 符号 的 改变 ,将 会 对 所 有 笔记 本 发 生 作用 . 

可 能 有 时 候 你 只 需要 执行 表达 式 的 一 部 分 ,那么 可 以 先 选 择 这 部 分 要 被 处 理 的 充 达 式 , 然 
而 按 [CTRLEI + [SEET] + [ENTERj| 键 (PC 机 }) 或 者 [GOMNMIAND] + [RETURN| 键 (Mac 机 ) 


例 2 假设 只 希望 对 表达 式 2*3+5 中 的 乘法 部 分 进行 处 理 ,那么 交 选 择 2 x*3， 

+ 5 

然后 按 [ETRL| + [SHIFT] + [ENIE 风 涯 (PC 机 ) 或 者 [OMMAND|] + [RETURN] 键 (Mac 
山 》 

6 + 5 

有 时 候 输入 的 指令 可 能 需要 计 芝 很 长 时 间 , 或 者 由 于 不 小 心 造成 无 限 御 环 , 那么 为 了 中 断 
计算 ,可 以 使 用 英 单 命令 Kernel 一 Mbert Evaluation. 另外 ,也 可 以 按 人 民工 [+ (在 Macintosh 
上 为 [COMMAND| + .) 结 束 计算 .如 果 这 些 措施 不 行 的话 , 那么 需要 进入 到 Kernel 之 Qu 让 
Kernel 全 Local 以 结束 内 核 .然而 , 这样 做 的 话 , 就 会 兴 去 所 有 的 已 定义 从 号 和 数值 .但 Math- 
ematica 笔记 本 并 不 会 丢失 ,从 而 可 以 很 容易 地 恢复 失去 的 数据 ， 

与 所 有 的 计算 机 软件 相同 ,有 时 个 Mathematica 也 会 完全 抽 吊 .于 么 这 里 解雇 问题 的 惟一 
方法 就 是 关闭 Mathematica 并 重新 执行 它 ,很 少 的 情 闹 不 可 能 需要 重新 月 不 计算 机 .那么 这 时 
Mathematica 笔记 本 中 的 内 容 都 会 琶 失 .因此 经 常备 份 自己 的 笔记 本 是 相当 重要 的 . 

最 后 提 下 , 有 了 本 民 你 可 能 希望 在 Mathematica 命令 中 包含 注释. 实际 上 所 甩 含 在 % 
C¥* 利 ¥ ) 之 同 的 爷 令 都 会 锥 内 核 所 忽略 . 


例 3 12 + {xthese words will be ignored by the kernel x*)3 
15 


习题 解答 


1.1 12 奢 以 17, 再 如 上 9， 
解 EF 
12 x17 + 间 9 
213 


1.2 在 习题 1.1 中 只 进行 12 磁 以 17 的 运算 ,并 不 加 上 9. 


解 上 5 

+ 站 9 < 用 鼠标 选择 12 * 17. 

校 [CIRII + [SHEFT] + ENTERI| 键 或 者 [GOMMAND] + [RETURA 键 (Mac) 
204 + 9 


1.3 王 列 程序 是 一 个 无 限 循环 .执行 这 段 程序 , 然后 青 中 上 断 运 算 . 
| 


While [x > 0, xr= x+1| 


Mathematica 全 用 指南 


解 这 

TT = 1; 

While[ x >0,x = x + 1] 
+ 


$s Aborted 


1.4 17.2 科 以 16.3, 然后 再 加 上 4.7. 
解 上 


17.2 #16.3 + .7 
285.06 


1.5 17.2 浅 以 16.3 与 4.7 的 和 
解 于 


17.2 # (16.3 + #4.7) 
361 .2 


1.6 计算 2r + 3, 5r +9,4r + 2 的 和 . 
解 上 末 


{2x + 3) + {5x + 9) + (4&x + 2| 
14 十 11x 


1.3 Mathematica 的 怪癖 


Mathematica 区 分 字母 的 大 小 己 


例如 .Integrata 和 integrate 是 不 间 的 .所 有 的 Mathematica 命 今 都 是 以 大 写字 母 开 藉 
的 .而 其 中 有 些 命令 (如 FindRoot) 更 使 用 多 个 大 写字 母 .为 了 避免 冲突 ,最 好 的 主意 就 是 了 甩 有 
的 用 户 定义 符号 都 用 小 写字 母 开 头 . 


不 同 的 括号 有 不 同 的 用 途 


* 方 括号 用 在 郴 数 参数 指定 中 :Sin[x]( 不 是 Sinfz]). 


。 圆 括号 表示 分 组 .(2 + 3) #4 就 表示 先进 行 2 + 3, 然后 再 乘 以 4. 不 要 输入 为 [2 + 
3|] # 甩 . 


自然 对 数 的 底 是 有 而 不 及 包 


既然 每 个 Mathematica 符号 都 以 大 写字 母 开 头 ,自然 对 数 的 底 又 是 R, 这 很 容易 伍 人 拭 清 ， 
因此 要 非常 小 心 这 一 点 .同样 ,区 不 是 1) 表示 虚数 单位 .如 果 愿 意 的 话 ,可 以 使 用 模板 中 的 e 和 i. 


多 项 式 并 不 是 按 “ 标 准 " 形 式 显 示 的 


Mathematica 在 显示 多 项 式 时 ,把 常数 项 放 在 最 前 面 , 然后 从 左 到 右 按 升 蜡 排列. 因此 多 
项 式 x + 2x 一 3 显示 为 -3 + 2x + x ， 


1.7 


1.8 


1.9 


1.10 


1.11 


1 .12 


习题 解答 
利用 sqrt 函数 计算 v81 .如 时 没有 使 用 大 写字 母 S$ 会 出 现 什 么 情况 ? 
明 上 
Sqrt [81 ]】 
9 
sqrt [81 | 


General:; :spell ; Possible spelling error : new swmbol name "sgrt” is similar to 
existing symbol “Sqrt’. 

(可 能 拼写 出 名 :新 符号 有 称 sqrt” 类 似 于 已 有 符号 “Sqrt”.) 

Sqrt| 81 | 


利用 括号 计算 2 与 3 的 和 羔 以 5 与 7 的 和 .如 果 和 使 用 方 插 导 会 发 生 什 么 情况 ? 


解 gg 
(2 + 3}(5 + 7) 
60 


[2+ 3][5 + ?了 ] 


Syntax: ;txntxi : [2+3] is incomplete; more input is needed, ("|2+3] 为 不 完整 
表达 式 , 第 要 更 多 的 输入 .) 
[2 + 31[5+7] 


利用 Sin 函数 计算 sintx/2) .如果 使 用 的 是 加 括号 ,会 发 生 什 么 情况 ? 
解 。EF 


Sin[Pi/2] 或 Sin[ x/2] 
1 


Sintl Pi/21 
tS 1 RMathetrnatica 认为 你 希望 把 符 ] 
本 


ain 莱 凡 x, 然后 再 除 以 2. 


号 二 世 Mathematica 运行 时 输入 本 [4 + 1]j* [6 + 2], 那 么 他 为 什么 没有 得 到 答案 
A07 


解 EE 
方 括 导 椒 能 用 于 表示 分 组 ,这 时 必须 用 图 括 导 . 


当 李 四 输入 sgrzrtt9] 时 ,他 为 什么 没有 得 到 答案 3? 


解 ”EE 二 


Mathematica 因数 必须 以 大 写字 母 开 头 . 


当 王 五 输入 Cos(0) 时 ,他 为 什么 没有 得 到 管 案 0? 
解 ” 


包围 靖 数 参数 值 的 括号 是 方 括号 , 而 不 是 圆 括号 . 


wathematmca 合用 指南 


1,4 Mathematica 给 出 精确 解答 


Mathematica 软件 经 过 了 精心 设计 ,可 以 如 同一 位 数学 家 那样 工作 , 也 就 是 非常 讲究 精确 
性 .因此 在 这 里 你 不 会 得 天 类 似 于 计算 妖 上 那样 的 10 位 或 12 位 近似 数学 , 而 是 - -个 100% 淮 
确 的 数学 表达 式 . 


例 5 3 + 3/5 - 5/T + 2/11 


db63 

1155 
例 6 x+x 

27 
例 7 vw 1 


习题 解答 


1,13 ”化 简 /2 +vy8+ v18. 
解 EE 
v2+YyB+ v18 或 者 Sqrt[2] + Sqrt[8] + Sqrt[18] 
6 v2 


1.14 计算 3, 5, 7,，11 和 13 的 例 数 和 . 


和 解 

1 1 1 1 1 

二 二 一 二 一 二- 一 二 一 日 4 + + 

+ 了 Tt+iTY1S 或 者 1/3 + 45 + 1/79 + 1A11 + 1/13 
12673 

15015 


1.15 利用 Sart 困 笋 准确 订 算 r 的 平方 根 . 


条 上 
Sqrt|[Pi] 
Vx < 这 是 准 吏 表示 x 的 平方 根 的 惟一 方法 . 


1.146 8 乘 以 2. 


艇 ”EF 


V8/2 或 者 Sqrt[8] x Sqrt[21 


4 


1.17 化 简 , 二 .2 二 293 十 v48, 保 留 答案 中 的 恨 号 形式 . 


解 上 
,3+ v12+ v27+ v48 
10 3 


1.$ Mathematica 基础 


广 讨 论 Mathematica 中 的 几 个 简单 概念 .在 后 续 章 节 中 将 会 对 每 个 念 详 如 解释 . 

香 寻 定义 为 一 囊 字 母 ,数字 和 几 个 特定 宁 符 构成 的 序列 ,但 不 能 以 数字 开头 .-- 日 定义 了 
侍 号 ,那么 只 有 对 符号 进行 了 修改 或 者 清除 , 才 会 收 变 它 的 值 . 

算术 运算 足利 用 + , 一, * ,/ 符号 进行 的 显 式 操作 .指数 用 * 符号 表示 , 因此 x ~y 就 表示 
习 . 与 代数 中 约定 一 样 ,本 个 符号 之 间 没 有 运算 符 意 味 着 乘法 , 因此 2a 与 2 *a 是 相同 的 . 然 
而 如 皇 是 两 个 符号 相 和 滋 必须 小 心 处 理 , 因为 ab 表示 单个 符 导 , 这 个 符号 以 让 开头 ,b 结尾 ,为 
了 表示 a 乘 以 b, 那 就 必须 在 两 个 字母 之 间 加 入 * 或 【( 在 BasicInput 模板 上 ) 或 者 空格 , 届 
输入 格式 为 a *b,axb 或 ab. 


例 8 a=2 
2 
b= 3 
3 
c=a+t+bh 
| 


注意 每 次 运 拭 上 后 显示 的 结果 .有 时 候 这 种 显示 方式 信人 心烦 ,那么 可 以 在 指令 的 右边 加 下 
分 号 (ji) 去 掉 它 ， 
例 9 = 2; 
3; 


= a+b 


tn 
ll 


运算 的 执行 顺序 为 ;(a) 指数 , (b) 乘法 与 除法 , (c) 加 法 与 减法 ,如 果 要 改变 运算 的 顺序 ， 
堵 么 就 必须 用 贺 括 导 ( ) .注意 不 能 用 方 括号 { ] 或 大 括号 上 达到 这 个 目的 ， 


例 10 2+3#5 
了 了 
(2 + 3) #5 
25 


在 Mathematica 中 的 每 个 符号 部 表示 一 定 的 内 容 . 它 始 有 可 能 尾 某 个 简单 的 数值 运算 结 
抄 , 乌有 本 能 是 一 个 复 来 的 代数 表达 式 . 


例 11 a= 3; 
b = |e+1, 
2 3 


Mtatbermatea 合用 指南 


这 里 a 就 是 表示 数值 3 的 一 个 符 与 ,而 bb 是 此 示 非 有 理 代 数 表达 式 的 个 符号 . 
如 果 你 乓 记 了 答 号 所 代表 的 意义 ,那么 只 要 输入 ? 后 接 符 号 的 人 名称 就 可 以 知道 全 叶 的 定义 
了 了 . 


例 12 ?a 
Globhal™a 
妞 二 3 
上 
Global™b 
Y3+2x 


b = 


为 了 删除 个 符号 , 以便 使 得 福 可 用 于 其 他 的 目的 ,那么 可 以 用 Clear 或 Remove 作 今 . 

图 ”Clear[ 符 号 名 ] 清除 指定 符号 的 定 必 上 太 取 值 ,但 并 没有 清除 它 的 属性 ,信息 或 默认 值 ， 
内 此 苍 定 的 符号 们 在 Mathematica 的 符号 清单 中 . 

国 Remove[ 符 号 名 ] 完全 删除 指定 的 符号 .因此 除非 重新 进行 了 定 交 , 舍 则 不 再 识别 这 全 
符 导 . 

符 亏 名 = ， 也 会 删 际 指 定 社 号 的 定义 . 


例 13 Clear[a] 
9 a 一? aa 给 出 符 导 aa 的 信息 . 
lobala 
Remove[ b] 
? hb 
Information: :notfound : Symbol b not found. (没有 找到 尘 号 b.】 
H 命令 可 以 计算 近似 值 . 
四 二 [表达 式 ] 给 出 表达 式 的 6 位 有 效 数 宇 ({Mathematica 的 默认 值 ) 的 近似 值 . 
图 ”4 表达 式 , n] 尽力 给 出 表达 式 的 达 n 人 有效 数字 的 近似 值 . 


进行 近似 计算 的 男 外 一 种 方便 的 方法 是 在 被 近似 表达 式 右 边 用 /VN. 这 等 价 于 NH[ 表 达 
起 ]」.77 记 可 以 用 天 其 他 的 Mathematica 他 今 ， 
四 “表达 式 // 命 令 "等 价 十 "命令 [表达 式 ]" 


例 14 Nix] 或者 x /AN 
3.14159 
N[x ,S50 ] 
3.1415926535897932384626433632795028841971693993751 


在 Mathematica 核 中 可 以 跟踪 前 面 的 计算 结果 .符号 和 返回 前 次 计算 的 结果 ,而 % % 
返回 再 前 一 次 的 计算 结果 ,名 $ 多 依 此 类 推 . 灵 活 地 使 用 和 符号 可 以 节省 大 二 的 输入 时 间 . 


例 15 为 了 构造 Jr AT 我们 输入 Sqrt[Pi + Sqrt[Pi + Sqrt[Pij]]. 而 另外 一 种 可 
能 不 容易 使 人 糊涂 的 输入 方法 为 


汪 险 开 和 在 表达 式 中 的 数 傅 汶 梢 博 的 或 者 有 是 铝 商 的 精度 , Mathematiea 可 能 无 法 近 国 n 位 让 效 数 字 的 近似 值 


1 .2 


第 - 章 从 门 


sqrt[Pi]; < 二 分 号 禁止 显示 中 间 计 算 的 输出 ， 


Sqrt [Pi + %|]; 
Suqrt [Pi + 村】 


| 人 
yr dT+yT 


而 下 面 是 利用 BasicInput 模板 的 输 和 方法: 


| 天 一 
yA+ vv 和 + 天 


习题 解答 

定义 ee = 二 3, 了 二 4, c =. 然后 用 a 与 5 的 和 乘 以 5 与 c 的 和 ,只 显示 最 后 的 结果 . 
解 到 

a = 了 

b = 4; 

CG = 2; 

ia + bb * {b+ c) 

63 


令 a 二 1， 三 2, 0 = 3, 然 后 把 a, b,c 加 在 一 起 . 接 者 从 内 核 的 存 凡 空间 中 清除 
a, 岂 ，, 音 计算 它们 的 和 ， 


解 上 
a = 1; 

= 2; 
局 三 3， 


at+b+c 

6 

Clear[a, b, ¢] 
a+b+t+e 


红 + bi+i+c 


给 出 自然 对 数 基 底 e 的 有 25 位 小 数 的 近似 值 , 
和 解 “二 


N[E，26] 或 者 W[e，26] < 这 里 需要 26 位 有 效 数字 以 给 出 25 位 小 数 ， 
2 .7182818284590452353602875 


1 2 工 志 一 、， 
(a) 把 7+13-19+ 23 表示 为 单 个 分 数 . 
《b) 给 出 上 村 表 这 式 的 有 20 位 小 数 的 近 侯 值 . 
解 ”EE 


177 了 + 2/13 - 3/19 + 1/23 


:10 


1 .24 


1 .25 


Mlathemaiiwca 使 用 指南 


0 .18228682073075665753 


按 下 列 要 求 计 算 “968 的 结果 :(a) 精 兢 ;(b) 近似 到 25 位 有 黎 数 字 . 
解 EE 

v968 或 者 Sqrt[968] 

22 2 

N[ 竺 ，25] 

31.11269837220809107363715 


计算 12 乘 以 6 的 结果 .然后 再 计算 15 乘 以 了 7 的 结 米 .接着 用 % 和 s% % 把 两 个 结果 
加 在 一 起 


解 上 
12 #6 


o | 


计算 1+ (1+(1+ (1+ {1+1)*)*)*)2 的 值 . 
解 1 


1+ 1 


87" 
1 + “这 
458330 


1.5 单元 


单元 后 Mathematica 笔记 本 的 构造 异类 , 在 笔记 本 右 过 用 蓝 色 的 方 括号 表示 每 个 单元 . 
(很 可 能 你 后 就 注意 到 这 些 方 插 号 ,并 奇怪 它们 到 底 是 做 什么 用 的 . ) 单 元 中 可 以 包含 子 单元 ， 
并 进而 包含 子 子 单元 , 依 此 类 推 . 

和 内核 在 计算 笔记 本 时 是 以 逐个 单元 为 基础 的 ,因此 如 果 你 把 几 条 指令 放 在 同一 个 单元 中 ， 
那么 只 要 按 一 下 载 9 形 姓 键 ,它们 就 都 会 被 执行 . 


例 16 a= 1 + 21 
b = 2 + 1 “这 三 行 包 舍 在 同 :个 单元 中 , 国 此 只 需要 按 一 下 地区 键 
= a+ 
3 
9 
12 


通过 移动 鼠标 , 直到 指针 变 为 一 条 水 平 线 时 单 击 ,就 可 以 形成 一 个 新 的 单元 , 这 时 将 会 在 
屏幕 上 出 现 一 条 贯穿 的 水 平 线 , 标志 新 单元 的 开始 . 可 以 利用 Cel1 二 Divide Cell{ 部 分 单元 ) 
他 令 剖 分 单元 ,这 样 单元 就 会 被 分 成 两 个 单元 , 汤 点 出 现在 当时 指针 所 处 的 位 置 . 

为 了 组 合 几 个 单元 , 可 以 先 选 择 相应 单元 的 方 括号 (这 时 会 出 现 一 条 坚 线 ), 然后 点 击 
Cel1lMerge Cell( 合 并 单元 ) .这 些 操作 都 有 键盘 快捷 键 ,就 列 在 相应 菜单 项 的 后 面 . 

为 了 避免 太 长 的 笔记 本 ,双击 单元 的 括号 就 可 以 关闭 (或 压缩 } 单 元 .这 时 插 号 的 外 观 发 生 
改变 ,就 好 像 一 个 鱼 钧 .再 次 双击 其 标志 就 可 以 打开 单 苑 . 

为 了 满足 各 种 用 途 的 需要 , 在 Mathematica 中 有 不 同类 型 的 单元 . 只 有 输入 单元 可 以 送 到 
内 核 进行 运算 .文本 单元 用 于 进行 描述 性 说 明 . 而 其 他 类 型 的 单元 (如 标题 , 子 标题 、 节 、 小 节 
等 ) 的 创建 可 以 利用 菜单 Fermat 全 Style 做 到 ， 如 果 愿 意 的 话 ， 点 击 Format 一 Show Toclbar( 品 
外 上 其 对 ) 可 以 显示 一 个 方便 的 工具 条 .这 样 就 会 在 笔记 本 窗口 的 顶部 显示 单元 的 类 型 


习题 解答 


1.26 今 4=27r+35=Sz + 6, 然 后 计算 a + 5b. 
(a) ”把 繁 个 指令 单独 放 在 一 个 单元 中 , 并 分 别 执行 . 
tb) 把 所 有 三 条 指令 放 在 同一 个 单元 中 ,并 同时 执行 . 
解 8 
下 面 就 是 执行 后 所 得 结 拒 的 样子 . 


Marhematca 使 用 指南 


(a) (bh) 
已 = 之 天 + 了 3 
43+2X b=5x+6 | 
b=Sx1+6 | a+b _ 
+9x | EE | 
a+b L ] 后 十 与 式 | | 
9 十 了 了 芝 | + Tx .| 


1.27 令 w =2r + Ay + 4zb = + y+ Szrc = 3r+t y+ zi 并 计划 ay 5&8, r 的 
和 和 ,把 四 行 放 存 向 -个 单 起 中 ,并 执行 它 , 只 显示 最 后 的 结 由 . 
解 FE 下 


a=2X13Y+42} 
b=¥+ 3yY+D2}? 
C=3X+Y+2} 
己 十 世 十 安 


SX+ y+l1U2 


J L- 1 
i 


1.7 导 求 帮助 


在 Mathematica 中 喇 以 从 计 多 地 方 得 到 大 助 .第 -个 地 方 , 也 是 最 重要 的 一 个 地 方 , 孢 是 
Mathematica 手册 .第 二 个 地 方 ,也 可 能 是 最 方便 的 一 个 地 方 , 就 是 内 置 在 软件 中 的 帮助 索引 . 
生 带 助 索引 中 你 会 发 现 所 有 的 命令 分 组 排列 , 只 要 点 击 家 应 条 日 ,就 可 以 得 钳 所 需要 的 帮助 信 
息 . 实际 上 总 本 Mathematieca 手册 也 内置 在 这 个 软件 中 . 

在 帮助 文件 中 有 无 数 个 例子 , 你 可 以 执行 它们 .在 帮助 文件 中 可 以 任意 进行 修改 ,不 用 担 
心 收 变 了 它 的 内 容 . 因 为 这 些 广 件 是 处 上 被 保护 模式 ,所 做 的 修改 不 会 永久 被 保存 不 米 ， 

右 果 已 知 所 用 人 前 令 的 名 称 ,那么 时 以 用 间 与 ?后 接合 令 名 称 来 确定 它 的 语法 .天 于 坟 命 
令 的 更 多 信息 ,包含 它 的 属性 和 选择 , 可 以 用 ?3 得 到 ， 

有 时 候 , 当 你 不 小 心 出 错 村 , Mathematica 就 会 器 一 声 .如果 你 不 知道 为 什么 会 这 样 , 那么 
只 要 到 Help 一 Why The Beep? 中 束 会 得 到 提示 . 


例 17 假设 你 知道 Plot 谷 令 能 绽 制 衣 数 的 图 像 , 但 没 记 住 它 的 语法 , 那么 可 以 如 下 反 作 ， 

? 

Plot 

Plot|f, {x, xmin, xmax| | gqenerates a plot of 上 as a function of x from xmin to 
xmax. Plot| {£f1, £2,:…|, 'x, xmin, xmax| | plcots severa! functions fi. 
(Plot[f，|x，xmin，xmax|] 生 成 国 数 让 的 图 形 ,共和 目 亚 量 为 x, 绘 几 区 间 为 [xnmirn， 

xnax |. Plot| 1 EL1，f2，… 上 ，)X，XRin，Xnmaxl | 经 侧 玫 个 西数 fi 图 形 .) 

如 时 需要 知道 关 十 属性 与 迹 项 设 闹 (以 大 它们 的 默认 倡 ? 的 信 虽 ,那么 可 以 用 ?3. 

?7 Plot 

Plotlf, |x, xmin, xmax! | generates a plot of f as a function of x from xmin to 
xmax. Plot{ ifi, £2, :1!, Ix, xmin, xmax! | plots several functions fi. 
(Plot|f，1x，xmin，xmax| | 生成 阴 数 的 图 形 , 其 日 变量 为 x, 绘图 区 同 为 [xmin， 

xmax |. Plot' |f1, f2, 1，!x，xmin，xmax| ] 符 制 几 个 隐 数 fi 的 图 形 .】) 


常 一 章 入 门 


Attributes[| Plot| = {HoldAll, Protected| 


Options| Flot| = {AspectRatio 一 hxes 下 Mutomatic, 


GoldenRat io， 
hxesLabel 一 None, hxesOricin 一 Automatic, 
Axesstyle -> hutomatic, Background 一 Automatjic., 
Coloroutput 一 Automatic, Compiled 一 True, 

DefaultCcolor 一 Mtomatic, Epilog 一 1!, Frame 一 False， 
FrameDabel 一 None, FrameStyle 一 automatic， 

Framelicks 一 Automatic, GridLines 一 None, 

lnageSlze 一 Automatic, MaxBend 一 10., PlotDivision — 30. 3 
PiotLabel 一 None, PlotPoints 一 25, PlotRange 一 AMutomatic, 
PlotRegion 一 Rutomatic，PlotStyle 一 hutomatic, 

Prolog 一 |1, RotateLabel 一 True, Ticks 一 Automat:ic, 
DefauiltFont ;一 $ DefaultFont, 

DisplayFunction :一 $ DisplayFunction, 

FormatType :一 $ FormatType, TextStyle :一 > $8 TextStylel 


也 可 以 用 Options 命令 得 到 选项 信息 , 当 你 想 知 道 站 某 个 特定 洗 项 , 却 记 不 住 它 的 名 称 时 这 
茶 命 令 是 相当 有 用 的 . 


例 18 Options[Solve| 
| InverseFunctions 一 Mtomatic, MakeRules 一 False, Method 一 3 


Mode 一 Generic, Sort ~ True, VerifySolutions 一 Automatic, 


WorkingPrecision 一 oo | 


更 经 六 直到 的 情况 是 你 只 记 住 了 符号 名 称 的 一 部 分 ,而 不 知道 它 的 完整 名 称 .例如 , 若 你 
如 道行 写 名 称 开头 为 Arc, 那么 就 输入 你 知道 的 那 部 分 , 并 按 及 i 嘻 明 绊 + 荐 .这 样 就 会 生成 由 天 
有 的 以 Are 于 六 的 储 今 和 函数 组 成 的 菜单 dam pa 名 果 你 用 的 是 


Nacintosh 计 算 机 ， 邦人 么 束 用 本 师 : 键 就 是 上 面 有 - -个 苹果 标志 人 
的 按键 .) 


例 19 条 入 Arc 并 按 私 灶 + 靶 式 者 掀 盾 先生 后 


* 13 ， 


.14 . wa'hematira 合用 指南 


一 . ——— 一 一 一 ~ ~ -一 ~ 一 ~ 


= 一- 一 一 一 一-- ”一 一 一 一 一 一 -一 一 “一 一 一- 一 一 一 一 一 


另外 -种 确定 符号 名 称 的 方法 是 用 ? 外 加 通配符 .字符 * 就 是 通配符 , 可 以 代替 任何 字 
符 序列 , 通配符 可 以 用 在 任何 地 方 , 婚 可 以 用 在 符号 的 开头 ,中 间 , 也 可 以 用 在 结尾 . 


例 20 《al 找 出 所 有 以 Inv 和 井 头 的 傅 令 . 


?3 Inw *¥ 
工 mV 所 工 二 所 InVerSeGJacopIDr 
InverseBetaRegqularized InverseJacob1iDNy 
InverseEllipticNomen InverseJacobiDns 
Inverseprt InverseJacohiNc 
InverseFErfce jnverseJacobhiND 
InverseFourier lInverseJacobiNs 
InverseEFunct ion InversedJacobisc 
InverseFunctions InverseJacobisD 
InverseGammaRtegularized InverseJAacobisN 
InverseJacobicb INVErTSESIRrL1eS 
InverselacobiCy INnverseWelerstrassP 
InverseJacobics 

(b) 找 与 所 有 以 “in” 结尾 的 命令 . 
? #1in 
ArcSin urouprageHreakHithin S1n 
hxesOriygin JoO1n StackBegin 
Begln Min StringIoin 
CoeffitcientDomain FageBreakHithin 5 MachineDomain 
ConstraimnedMin Plain 

(cl 栈 出 所 有 在 中 和 间 包 含 “our” 的 命令 . 
?7 OUr 并 
ButtonSsource ContourShading InverseFourier 
Contoureraphices contoursmoothing LightSources 
ContourLines ContourStvle ListcontourPlot 
ContourPlet Fourier MovieContourPlot 
Contours 


通配符 也 可 以 用 来 确定 到 现在 为 止 内 核 中 已 用 和 到 了 哪些 符号 .输入 ?~# 就 返回 在 此 次 执 
行 Mathematica 时 已 定 广 符号 的 清单 . 反 引 导 字 符 ` 表示 全 局 性 , 即 得 到 的 基 所 有 全 局 符号 的 
清单 .{ 见 附录 A.2.) 


例 21 注意 这 个 例子 的 结果 可 能 与 你 所 用 计算 机 上 显示 的 崩 有 不 同 . 


3 = 3， 

b2xy = 4; 

t = 3;} 

人 ~ 

己 Daxy XTYZ 7 


Clear[ ~* ] 会 清除 所 有 全 局 符号 ,Remove [~ #“] 则 会 删除 所 有 全 局 符号 ， 
例 22 Remove[ "~ * “>] 
2- < 钵 齐 幢 否 还 有 任何 符号 ， 


1 .29 


1 .0 


1.31 


第 一 章 入 门 3 


Information: :nomatch . No symbol matching™ * found., 


(没有 找到 与 ~ * 匹配 的 侍 导 .) 


习题 解 丛 


查找 Mathematica 前 令 Simplify 的 基本 信息 . 

解 ”上 

? Simplify 

Simplify[ expr | performs a sequence of algebraic transformations on expr, and 
returns the simplest form it finds. 


(Simplify[ expr | 对 expr 进行 一 系列 的 代数 变换 ,并 退回 它 得 到 的 最 简 形 式 .) 


查找 Mathematica 前 令 Simplify 的 包含 选项 点 认 值 的 扩展 信息 . 
解 于 
?2? Sinplify 


Simplifvy[ exrr | performs a sequence of algebraic transformations on expr, and 


returns 七 he simnplest form it finds. 
(Simplify| expr] 对 expr 进行 一 系列 的 代数 变换 , 并 返 区 它 得 到 的 最 简 形 式 . ) 
Attributes[Simplify] = iProtected| 


Options| Simplify] = {ComplexityFunction 一 Automatic, TimeConstraint 一 300, 
Trig — True! 


查找 Mathematica 命令 Factor 的 帮助 信息 ,并 利用 它 分 解 因 式 :zx 一 6z +11z 一 6. 
解 上 5 
? Factor 
Factor| poly | factors a polynomial Over the integers. 
Factor[polvy, Modulus—p| factors a polynomial modulo a 
prime p. Factor[ polvy, Extension 一 lal, a2, |] factorsa 
polvynonmial allowing coefficients that are rational 
conbinations of the ajgebraic numbers ai. 
(Factor[pol7] 在 整数 集 上 分 解 和 多 项 式 .Factor[pely，Modulus 一 pb] 对 模 素 数 p 进行 分 


解 多 项 式 . Factor[ Poly，Extension- jail，a2,… | 在 多 计 系 数 为 代数 数 ai 的 有 理 组 
合 的 条 件 下 分 和 解 多 项 式 ,】 


Factor (x - x + 1lx - 6|] 
(3 + x)(-2 + x)(-1 十 其) 


抽出 所 有 以 Abs 开头 的 Mathematica 命令 ， 


解 FE 

? Abs # 

hbs hbsoluteThickness 
AbsoluteDashing AbsoluteTinme 


AbsolutePointSize 


Mathernatins 司 用 指南 


一 = 一 一 oo、 
-一 一 一 一 一 一 一 一 一 一 一 一 一 


1,.32 找 出 所 有 以 Sn 开头 ,al 结尾 的 Mathematica 命令 . 
和 解 本 


? Sin ¥*al 


SinhIintegral SinIntegral 


1.33 找 出 所 有 了 以 Fi 开头 的 Mathematica 命令 . 


解 EE 

? Fi 

Fibonacci F1ind 

File FindList 
FlleBrowse FindMinimm 
FileBvytecount FindRoot 
FileDate Firgst 
Filelnformation Fit 
FileName FixedPoint 
FileNames FlixedPointList 
FlileType 


1.34 找 出 所 有 以 Fi 开头 ,1 铺 尾 的 Mathematica 命令 . 
解 8 于 
? Fi *t 
FileBytecount 1 革 
Findlist FixedPoint 
FindRoot FixedPointList 
Fl1t 


1.8 软件 包 


当 Mathematica 便 被 执行 时 , 有 许多 很 专业 化 的 国 数 和 程序 并 没有 被 上 载 进 系统 . 如果 需 
要 它 匀 的 话 , 那 就 必须 单独 从 Mathematica 的 硬盘 目录 中 上 载 .这 些 文件 的 形式 为 文件 名 .m. 


例 23 半径 为 1 的 图 的 隐 式 方程 为 zr* + y*=1. 为 了 绘制 隐 式 方程 确定 藤 图 像 ,需要 使 用 命 
令 ImplicitPlot. 然而 , 只 有 有 在 软件 包 Graphiecs 中 ImplicitPlet 命 今 才 可 以 使 用 . 
(相关 信息 可 以 到 带 助 索引 下 的 add-ons( 其 他 ) 中 查 到 . ) 为 了 上 载 这 件 图 形 命令 , 只 需 
要 输入 
Graphics”™ InplicitPlot™~ 
如 果 所 用 计算 机 有 足 驶 的 内 存 , 那么 可 以 输入 安 Graphics~ 上 载 所 有 的 图 形 软 件 包 , 这 样 
Mathematica 就 会 在 调用 其 中 每 条 图 形 命令 时 ,自动 上 载 相 应 部 分 .现在 就 可 以 调用 适当 的 图 
形 命 令 了 . 
Implicitplotlx + y== 1, |x, -1, 1|]: 
注意 ”人 和 侍 -mplizitPlot 命令 中 用 的 是 两 个 等 号 ,我 们 将 在 第 四 意 ( 二 维 图 形 } 中 详细 计 论 
ImplicitPlet 命令 . 
一 旦 十 载 了 -个 软件 包 , 那么 可 以 用 Names 命令 得 到 这 个 软件 包 中 包含 的 所 有 隙 数 名 称 
的 清单 . 


例 24 < 巡 Wiseel1lanecus ~ Calendar. 


例 25 


-一 一 一 -一 一 一 一 - 


=- -上载 软件 包 Miscellaneous- Talencar - 
Names | Miscellaneous Calendar ~ <“] 


|'Calenda* , CalendarChange , "DayOfWeek , DaysBeLween’, 


DaysPlus , FasterSunday , EasterSundayGreekOrthodox, 
“Fritday , Gregorian ， Tslamic’, JewishNewYear , Julian’, 
Monday ,Saturday , Sunday ,Thursday , Tuesday , 
Wednesday | 


在 应 用 软件 包 时 经 常 出 现 一 种 错误 ,这 就 居 还 没有 上 载 相 应 的 软件 包 , 就 使 用 了 该 软 
件 包 中 的 命令. 例如 ,在 上 载 图 形 软件 包 之 间 就 执行 ImplicitPlot, 会 得 到 如 下 结果 : 
ImplicitPlot [x + ¥ == 1, {x, -1, 11] 
ImplicitPlot[x + yy == 1, Ix, ~1, 1|] 
如 果 现 在 工 载 图 形 软 件 包 , 那么 得 到 如 下 出 错 信 息 . 
‘raphics™ ImplicitPlot ~ 
ImplicitPlot: :shdw ， 
Symbol lmplicitPlot appears In multiple contexts < 1; 
Definitions in con-ext Sraphics ~ lmplicitPlot ~ nay Shadow or be shadowed 
by other def 1nitions. 
[符号 ImplicitPlot 出 现在 多 个 上 下 文 芝 1 六 中 ;在 上 下 文 Graphics* 1mplicit- 
Piet ~ 中 的 定义 可 能 会 覆盖 其 他 定 交 ,或 者 被 其 他 定义 稳 盖 . ) 
这 时 输入 画图 命令 , 并 不 能 得 到 结果 , 因为 现在 有 两 个 ImplicitPlot 符号 ,这 就 是 
由 在 上 载 软 件 包 之 前 的 饭 误 调用 疙 成 的 ,解决 这 个 问题 的 方法 就 是 从 符 与 表 中 去 掉 该 命 


1 .33 


1 ,36 


Mathcematica 使 用 指南 


一 一 -一 一- 一- -一 一 


邻 ， A 后 册 闻 到 = 
Ramove [TmplicitPlot J] 
InplicitBlot[x + y == 1, {x, - 1, 1}]; 


习题 解答 


在 软件 包 DiscreteMath~ Coubinatorica™ 中 包含 了 与 组 合 数 学 和 和 图 沦 有 关 的 多 达 230 
个 隔 数 ,其 中 有 -个 函数 叫 KSubsets, 它 列 出 给 定 集合 的 所 有 太 小 为 上 的 子 集 . 上载 这 
个 软件 包 , 并 执行 RSubsets[j 1, 2,3,4,5|1，3]. 这 就 会 列 出 |1，2，3,4,，51 的 所 有 包 
仿 二 个 元 来 的 子 集 . 

‘DiscreteMath ~ Combinatorica™ 

XSubsetsl 1, 2,3, 4,5|,， 3| 

11, 2, 3!, 11, 2, 41, 11, 2, 5,, |1, 3, 4}, |i,， 3, 51, 

11, 4, 51, 112, 3, 4|,，|2, 3, S|, |2, 4, 5|, 13, 4, 5|| 


汕 数 DayofWeek 位 和 软件 包 Miseezlanacus * Calendar "中 , 它 给 出 日 历 中 任 一 日 期 到 

底 是 星期 几 , 1- 载 这 个 次 件 包 , 查找 帮助 信息 , 从 而 获取 该 命令 的 语法 , 然后 确定 2000 

和 后 1 月 1 虽 是 时 期 儿 ， 

“Miscellaneous™ Calendar ~ 

?+ DayofWeek 

DavOfWeek| {y, m, d}, cal| gives the day of the week for year y¥, month m, and day 
过 in calendar csal, The defau_t calendar 15 七 he usual Amerlican calerdar. The 
date can algso 

be given in iy, nm, d, h, m, si form. 

(DavofWeek[ 1y, mdi， call 竺 出 在 日 万 cal 中 yy 年 月 d 天 是 星期 几 . 战 认 日 历 就 旦 

通 名 的 美国 日 历 . 日 期 也 可 以 拔 和 7，m，d，h， 名，si 形 式 给 出 .) 

DayOfWeek[2000, 1, 1] 

Saturday 


软件 也 WisceLlaneous "ChemicalElements* 中 世 侈 的 数 可 以 提供 元 素 的 化 学 与 物理 

属性 方面 的 重要 信息. 这 个 软件 包 中 有 两 个 函数 ,名 称 分 别 为 RtomicWeight 利 Atonmic- 

Number, 其 定义 从 名 称 上 看 就 很 清楚 了. 用 这 两 个 函数 计算 馈 (Titanium}) 的 原子 量 和 原 

了 序号 . 

解 E&F 

‘<Miscellaneous ~ ChenicalElemnents ~ 

? Titanium 

Titanium is a chemical elerent. {和 饶 为 一 种 化 学 元 吉 .】 

了 AtomicWeight 

htomicWeight| element | gives the atomic weight of tne specified element. (Atom- 
icWeightLelement | 给 出 指 外 元 素 的 原子 其 .) 

? htomicNunber 

AtomicNumber| element | gives the atomic nunber of the specified element. (Atomic- 
Number|f element] 缩 出 指定 元 素 的 原子 序数 .) 

AtomicWeight| Titanium | 


A47.867 
AtomicNunmberl Titanium | 
22 


1.9 后续 章节 内 容 现 览 

旭 果 你 刚刚 赔 买 了 Mathematica 软件, 那么 就 会 姐 不 及 行 地 想 测 试 :下 它 的 功能 . 千 面 给 
出 的 就 是 可 供 测 试 肌 的 问题 , 棠 接着 给 市 慧 本 的 命令 .为 了 简化 ,这 里 牧 略 了 选项 ,从 而 使 用 的 
是 Mathematica 默认 值 .我 们 将 会 在 后 斌 重 市 中 讨论 如 机 改 变 这 些 命令 ,而 现在 量 管 让 心 辣 尝 
它们 到 


习题 解答 


1.38 给 出 yx 有 50 位 有 效 数 字 的 近似 值 . 
解 “时 


N [vrn，50] 或 者 NLSqrt[Pi]，50] 
1 .717727249538S509005S5160272981674833411451827975494561224 
注音 这 个 近似 值 只 有 49 位 小 数 . 


1.39 ”求解 代数 方程 zr? 一 2+ + 1 = 0. 
解 ”# 于 
Solve[ x - 2x + 1 == 人 | 或 者 Solve[x-3 - 2 + 1 == 站 | 
[lll, xi -1 -5)), tr-1+v5)|| 
1,40 把 (1+z 和 展开 成 多 项 式 形式 ， 
解 。 上 


Expand[ (1 + x) 2] 或 者 Expand[[1 + x)*10] 
1 + iox + d5x2 + 120x7 + 210xd+ 252x5 + 210x + 120x7 + 345xe+ 10xw + x 


1.41 第 1000 个 素数 是 什么 ? 
解 上 


Priane[1000] 
了 号 1 


1.42 画 出 函数 = sin x 从 0 到 2x 的 图 像 ， 


Mathematzca 使 用 指南 


一 一 一 一 一 


解 EE 胰 

Plot|l Sin[z], {x, 0, 2 x!]}; 或 者 Plet[Sin[x], fx, 0, 2 * Pil]; 
1,43 在 同一 坐标 系 中 , 男 出 国 数 yy = sin xz,，y = sin 27 与 y = sin 3x, 0szs2r 的 图 窜 ， 

解 LE 

Plot[ [Sin[x]，Sin[2x]，Sin[3x]]，{x，0，2r}]; 或 者 

Plot[ {Sin[x], Sin[2x], Sin[3x]}, {x, 0, 2 * Pil|]; 


(NY 


| 
1 
1.44 绘制 (x+ 呈 ) = xy，-2 所 rz 世 2 的 图 像 . 


站 


因为 这 是 一 个 障 云 方程 ,必须 在 Graphics 软件 包 中 首先 输入 Inplicitplot 命令 。 
Graphics™ InplicitPlot ~ 


ImplicitPlot[ (x +y )? == x xy {x,，- 2, 2]]; 或 者 
ImplicitPlot[ (x*2 + y*“2)°2 == x #*y, {x, -2, 2}];: 


.5 


1.45 绘制 由 > = (zz 十 32JerGz *7 ) 定 义 的 二 维 空间 中 的 曲面 . 
解 HE 丈 
Plot3D[(x + 3Y )E- (x t+), {x,， -3, 3}，{y，- 3, 3}]; 或 者 
Plot3p[ {x “2 + 3y" 2) *FExp[ - (x“~2 + y*2)], {x, -3, 3}, {y, - 3, 3}]; 


P| 


第 二 章 基本 概念 


2.1 常数 


在 Mzthermatica 中 使 用 预定 义 的 符号 表示 内 置 数 学 常数 ， 


Pi 或 x 表示 加 的 周 长 与 直 答 的 比率 . 
E 或 e 表示 自然 对 数 的 确 . 


注意 对 Pi 和 EE 的 处 理 都 是 罕 号 性 的 ,而 不 洋 用 上 基体 的 数值 ,但 却 可 以 近似 到 任意 精度 . 


例 1 


例 2 


2.1 


2.2 


2.3 


N[r，50] 计算 出 x 的 达 50 位 有 效 数 字 (49 位 小 数 ) 的 近似 值 . 
NLx, 50] 
3.14159265358979323BA026433B32795028841971693993751 
Degree 等 于 Pi/180, 通 稍 用 来 把 角度 转化 为 弧度 . 
GoldenRatio 的 伯 为 (1++ v5)/2, 它 对 Fibonaeei 数列 的 处 理 是 非常 草 要 的 .在 Mathe- 
matica 中 也 用 它 作 为 显示 一 维 图 洲 时 默认 的 觉 度 与 高 度 比 率 . 
Infinity 或 oz 是 一 个 有 特殊 性 质 的 负数 .例如 , ce +1=%， 
EulerGamma 不 是 欧 拉 (Euler) 贡 数 , 近 亿 值 为 0.577216, 在 积分 和 渐 近 展 并 中 要 用 到 
它 . 
Catalan 就 足 Catalan 常数 ,近似值 为 0.915966. 在 组 合 妇 数论 中 要 用 到 它 . 


+ 是 名 小?” 
bo + Bo 


IO 


习题 解答 


90 度 和 近似 等 于 和 多少 弧 雇 ? 
解 上 宫 


90 Degree //N 一 表达 式 / /73 与 由衷 达 式 ] 是 等 价 的 . 
1.5708 


证 明 GeldenRatio 满足 代数 方程 rz*?-xz -1= 0. 


解 E 杰 

x = GoldenRatio: 
x —- x -1//N 

和 


旭 凌 从 oo 中 减 去 ee 会 出 现 什 么 情 吉 ? 
解 ”于 


oo Imdet ， 


Indeterminate expression 一 oo + % encountered. 
(过 到 T 了 不定 表 计 式 - 吕 + ce,) 


Indeterminate 


2,4 计算 出 自然 对 数 底 e 的 有 20 位 小 数 的 近似 值 . 
解 #3 
N[ BE, 21] 
2.71828182845904523536 


2.2 内 是 邱 数 


本 节 讨 论 由 Mathematica 所 提供 的 一 些 比较 常用 的 函数 .由 于 可 用 的 函数 数目 实在 庞大 ， 
因此 我 们 不 会 给 出 所 有 邓 数 的 用 法 .在 后 续 章节 中 讨论 了 其 他 一 些 函数 

如 果 要 调用 标准 数学 函数 , 那么 可 以 直接 输入 它 的 名 称 , 也 可 以 在 Mathematica 模板 中 点 
击 它 的 符号 .例如 ,为 了 计算 一 个 数 的 平方 根 ,可 以 使 用 函数 sqrt, 也 可 以 使 用 BasicInput 模 
板 中 的 V 符号 .注意 函数 的 参数 值 必须 放 在 方 括 导 [ ] 内 . 


图 ”Sgrt[xj] 或 vx 给 出 x 的 算术 平方 根 . 


例 3 Sqrt[1521] 或 者 v1521 
39 
高 阶 方 根 可 以 利用 yz = xx" 来 计算 .在 BasicInput 模板 二 的 D ”符号 也 可 以 实现 同样 
的 功能 .注意 负数 的 高 阶 方 根 是 用 特殊 的 格式 给 出 的 . 


例 4 8 的 三 次 方 根 是 直接 给 出 的 ,而 -8 的 三 次 方 根 则 是 用 -1 表示 的 . 
8 ~ (173) 战 者 v8 
2 
{ -8)*(1/3) 或 者 一 
21 加 1)13 


例 5 N[w21 
1.41421 
NEv2, 50] 
1.4142135623730950488016887242096980785696718753769 
abs 图 数 给 出 x 的 绝对 值 | x|， 
国 。 Ahbs[xj 如 果 x 庄 0, 人 返回 x; 如 果 x< 之 0, 返回 一 x. 


Abs 图 数 也 可 以 作用 到 复数 王 .如果 > 为 复数 x+ Yi, 那 么 abs[z] 返 回 它 的 模 , 即 yx + 


例 6 abs[5] 
5 
Abs|[ - §| 
3 
Abs[5 + 121] 
13 
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2。 


kwfathematica 性 用 指南 


一 一 -一 一 一 一 


能 确定 一 个 数 的 符号 的 图 数 在 有 些 问 题 中 古 有 用 的 . 
图 ”Sign[x] 孙 数 根据 x 为 负数 .地 或 者 正 数 分 别 返 回 -1, 0 或 1 


OO 一 一 一 


例 7 Sign[ -27.5] 
—1 
Sign[L 0| 
0 
Sign[ 6.254] 
] 


正 北 数 ”的 阶乘 ,在 数学 :教科 书 中 记 为 n1, 表 示 # 个 整数 1，2，3,…,n 的 连 滋 积 .我 们 
规定 01 = 1. 对 于 非 整 数值 的 mnl 定 艾 为 Ta+1) ,这 里 工 为 欧 拉 俩 马 函 数 . 


国 ”Factorial[na] 或 nl 给 出 mn 的 阶乘 . 


例 8 5! 

120 

0! 

了 

Factorial[3.5] 

11.6317 

在 Mathematica 中 有 一 个 内 置 的 随机 数 生成 器 ,这 个 内 置 隙 数 在 概率 论 与 统计 分 析 ( 如 随 

山行 走 与 家 和 料 卡 软 方 法 ) 中 非常 有 用 . 

昌 ”Randoaft ] 给 出 在 区 间 [0，1] 上 均 名 分布 的 实 的 伪 随 机 数 . 

国 ”Randon[ 类 型 ] 给 出 指定 类 型 的 均匀 分 布 的 伪 随 机 数 , 其 中 类 型 可 取信 Integer, Real 
或 者 Complex. 如 果 取 值 汐 Integer 或 Real, 那 么 返回 值 介 于 0 到 Hi 之 间 . 如 果 类 型 为 
Complex, 志 握 值 位 于 由 和 和 1+ 守 确定 的 矩形 内 ， 

国 。 Randoa[ 类 型 ， 范 围 ] 给 出 位 于 由 范围 确定 的 区 间或 矩形 内 均匀 分 布 的 均 随 机 数 , 其 中 
范围 可 以 是 单个 数 ,也 可 以 是 两 个 数 ,如 |a,b| 或 |a+bi,c+di!. 单 个 数 m 等 价 填 


10, m!, 
国 。 Randoa[ 类 型 范围，n] 给 出 位 于 由 范围 确定 的 区 间或 矩形 向 均匀 分 布 的 大 5 位 有 效 
数字 的 伪 随 机 数 ， 


例 9 《你 所 得 的 答案 可 能 与 下 面 给 出 的 不 同 ) 


Random| Thteget ] -等 概率 地 返回 0 或 1， 

0 

Random[ Real] 一 返回 介 寺 0 与 1 之 间 的 有 56 位 有 效 数 宁 的 实数 . 
0.386297 

Rarndon[ Complex | 一 返回 的 复数 位 于 对 角 点 为 6 和 1+i 的 矩形 和 内. 
0.420851 + 0.382187 1 

Random[ Real, 5 | < 二 返回 均匀 分 布 在 区 间 [0,5] 内 的 实数 ， 

1] .33872 

Random[ Real, |3,51] < 返回 均 习 分 布 入 区 间 [3,5] 内 的 实数 ， 
3.95388 


Random[ Real, {3,5|,10] < -号 町 的 习 人 对 布 在 区 加 【3,5] 内 的 有 10 位 有 效 数 字 的 实数 ， 


第 二 章 基本 概 人 性 “ 25. 


4.014673297 
Randon[ Integer, |1, 10|] < 返回 的 整数 介 于 1 与 10 之 间 , 概率 为 1710. 

] 

Randon[ Complex, 2 + 1, 5 + 61|] 二 起 司 的 复数 位 于 对 角 点 为 复数 2+1i 和 5+56: 的 矩形 内 . 
2.61319 + 4.30869 3 


一 个 正 整数 为 因数 是 指 它 只 能 入 1 和 七 本 和 丑 整 除 . 由 于 技术 上 的 原因 ,不 认为 1 是 素数 ， 
最 小 的 素数 是 2. 
加 ”Prime[n] 给 出 第 m 人 素数 ， 


例 10 求 出 第 7 个 素数 ， 


Prime[?7] 
17 
Fibonacei 数 的 定义 为 
fy = 1, 
六 一 1, 


fn = fn—2 + 了 1， 碍 六 3， 
因此 前 几 个 Fibonacei 数 为 1 1, 2, 3, 5, 8, 13, 21,…， 
国 ”第 zn 个 Fibonacci 数 是 由 Fibonacci[n] 给 出 的 ， 


例 11 Fibonacci[?7] 
13 


在 Mathematica 中 有 三 个 申 数 可 以 把 实数 转化 为 附近 的 整数 . 

国 Round [x] 述 回 最 靠近 x 的 辖 数 . 如果 区 怡 好 位 于 两 个 整数 的 中 间 , 如 5.5, 那么 Round 
就 返回 最 靠近 的 侦 数 . 

国 Flccz[x] 返回 不 超过 x 的 最 大 整数 .这 个 函数 有 时 被 称 为 "最 大 整数 函数 ", 在 许多 教 


科 书 用 [xj 表示 . 
图 Ceiling[x] 返 亲 不 小 于 x 的 最 小 整数 .许多 教科 书 中 用 [x1 表示 它 . 


例 12 Round[5.75] 
6 
Floor[5.75] 
5 
Ceiling[5.75] 
6 


一 个 十 进 制 小 数 可 以 分 为 两 部 分 , 即 整 数 部 分 (在 小 数 点 左边 的 部 分 ) 和 小 数 部 分 (在 小 数 
点 右边 的 部 分 ) 

国 。 IntegerPart [x] 给 出 x 的 整数 部 分 (不 官 小数 后 }. 

图”FractionalPart[fx] 给 出 x 的 小 数 部 分 { 包 低 小数点 ). 

注意 IntegerPart[xi + FractionalPart[x] =x. 


Mathematica 使 用 指南 


例 13 IntegerPart[4.67] 
4 
FractionalPart[4.67 | 
0 .87 
IntegerPart[4.67|] + FractionalPart[4.67}] 
4.67 


如 采 mr 和 nn 都 是 物 数 ,那么 存在 惟一 的 幕 数 g 与 7, 使 得 
n = gni+r 0 二 r<An 
这 个 结果 不 是 非常 有 名 的 整数 相 除 算法 (Division Alogrithm).g 称 为 商 (quotient) , 而 + 称 为 余 
数 {retmaindery ,Mathematica 画 数 Quotient 和 Mod 分 别 返 回 商 与 余数 ，. 
国 Quctient[m,a] 返 回 m 除 以 mn 得 到 的 商 . 
国 Nedimn] 霸 回 m 除 以 n 得 到 的 余数 ， 


例 14 Quctiant[17,31 
了 
Mod[13,3] 
2 


假设 a 与 5 为 两 个 整数 , 如果 存在 整数 使 得 a = 号 , 划 称 5 可 整除 4, 也 称 a 为 5 的 信 
数 . 

令 mm 与 为 两 个 整数 ,如 果 5 同时 整除 吉 与 ,我 们 称 6 为 加 ，#n 的 公约 数 .mm 与 n 的 
最 大 的 那个 公约 数 称 为 sm 与 的 最 大 公约 数 (the greatest common divisor). 

如 果 <z 同时 为 mw 与 # 的 倍数 ,那么 称 a 为 mx 与 = 的 公 倍 数 . xm 与 n 的 最 小 的 那个 公 倍数 
称 为 六 与 nn 的 最 小 公 售 数 (the least common multiple). 

加 ”CD [ap] 返回 nm 与 nn 的 最 大 公约 数 ， 

国 ”LCM [n,n] 返回 mn 与 mn 的 最 小 公 倍 数 ， 


例 15 求 出 48 与 72 的 最 大 公约 数 与 最 小 公 倍数 . 
GCD[ 48, 72] 
24 
LOM| 48, 721 
144 


GCD LCM 孙 数 可 以 推广 到 多 个 参数 值 的 情形 . 


例 16 求 出 24, 40 和 48 的 最 大 公约 数 和 最 小 公信 和 数 . 
GCD[ 24, 40, 48] 
B 
LOM[ 24, 40, 48] 
了 4 


算术 基本 定理 保证 了 每 个 正 整 数 都 可 以 惟一 地 分 解 为 素数 的 丧 积 . 
关 ”了 数 FactorIntager[nj] 给 出 na 的 素数 分 解 ,同时 列 出 相应 的 指数 


常 二 章 基本 概 窜 


例 17 FactorIinteger[2381400] 
| 12， 了 | ， | 3， 51 ， | 5， 2 ， | ?， 21| 


2 381 400 的 素 因 子 为 2，3，5，7， 它 们 的 指数 分 别 为 3，5，2，2. 也 就 是 说 
2 381 400 = 2 3 .这 个 运算 给 出 的 结果 是 嵌 套 列表 (tst, 列表 是 一 个 Mathematica 对 象 ， 
用 大 括号 包 国 起 来 , 并 将 在 第 三 章 中 详细 介绍 . 
为 了 估计 计算 的 效率 ,因此 需要 能 够 确定 要 执行 的 一 个 操作 或 一 系列 操作 的 时 间 ， 
四 Tiuing [表达 式 ] 计算 表达 式 , 并 给 出 一 个 列表 ,出 所 花费 的 时 间 以 及 所 得 的 结果 均 
成 


这 里 的 计时 只 考虑 了 Mathematica 内 核 所 花费 的 CPU 时 间 , 并 没有 包含 显示 到 终端 上 要 
北 费 的 叶 间 . 


例 18 为 了 计算 第 1000 000 个 素数 , 内核 需 要 花费 和 多少 时间? 
Prime[l 1000000]//Tining < 一 这 等 价 于 Tining[Rrime[1000000]] 
10.51 Second, 15485863| 


当然 , 实际 所 用 的 时 间 可 能 与 这 里 给 出 的 不 同 ,具体 与 CPU 的 速度 有 关 . 


相应 于 任意 襄 的 对 数 与 带 数 函数 也 很 容易 计算 ， 

图 ”Log[x] 表 示 自 然 对 数 .如 果 需 要 的 底 不 是 6, 而 是 5, 那么 相应 的 形式 为 bog[b,，xj. 

图 ”六 数 Exp[x] 为 自然 指数 函数 ,其 他 的 等 价 形式 汶 “xx 或 者 焉 ,这 时 不 能 用 小 写字 母 
e; 但 可 以 用 Basicinput 模板 上 的 符号 e, 相 应 于 底 b 的 指数 函数 形式 为 b * x 或 者 bz. 


例 19 计算 ln 100, 即 100 的 自然 对 数 . 
LogL 100] 
Log[100 | 
Log[100 ]//N 
4.60517 


例 20 计算 log, 100. 
Log[2, 100] 
Loegl 100| 
oof 2 < 这 是 用 日 拓 对 数 表 示 出 来 的 log; r 精确 值 . 
Log[2, 100]//N 
6.64386 


例 21 为 了 计算 申 的 近 私 值 ,输入 
Exp[2]/AN 或 者 BAAN 或 者 ez 1 
了 .38906 


面 ”六 个 基本 的 三 角 酒 数 (正弦 余弦 .正切 . 正 割 . 余 割 和 余 切 } 在 Mathematica 中 分 别 用 
Sin, Cos, Tan, Sec Cse 和 Cot 表示 ， | 
Mathematica 假定 三 角 消 数 的 参数 值 以 弧 赎 为 单位 .因此 如 果 调 用 三 角 铺 数 时 参数 值 单位 
为 角度 , 那 就 必须 先 把 它 转 化 为 张 度 .为 此 党 要 利用 内 置 常 数 Degree, 它 的 值 为 x/180. 在 Ba- 
sicInput 模板 上 的 “ 符号 也 可 以 作 此 用 途 ， 


- 7- 


* 2 ， 


Mathematica 使 用 指南 


例 22 60 等 价 于 x3 弧度 .为 了 计算 它 的 正弘 ,需要 利用 骂 度 单位 , 轩 此 输入 
sin| 至 | 或 者 Sin[Pi/3] 
v3 
2 
如 果 想 用 角度 计算 它 的 正 蕊 ,那么 可 以 输入 
Sin[ 60 Degree] 或 者 Sin[60°] 


.3 
2 
在 计算 三 角 玛 数 的 枯 次 时 , 必要 仔细 一 些 , 在 数学 书 中 通常 把 sin x 的 平方 表示 为 sin2z， 
而 在 Mathematica 中 只 能 用 Sin[x] 或 Sin[x] ~ 2. 


例 23 计算 sin 60" 的 平方 . 
Sin[60'] 或 者 Sin[60 Degree] ~ 2 
3 


4 


上 二 骨 靖 数 分 别 是 MresSin, ArcCos, AreTan, ArcSec, ArcCsc 和 rccot ,然而 这 些 国 数 只 返 
回 用 弛 度 表示 的 主 值 , 


例 24 RArcsin[1] 


cog [ An ] = — 1 但 是 | 
ArcCos[Cosl 3x]] rccos[ ~ 1j 的 主 佣 为 x， 
开 


双 曲 函数 是 指数 函数 的 组 合 , 它 有 许多 有 趣 的 数学 性 质 . 双 曲 函数 共有 六 个 , 其 中 最 基本 
的 三 个 函数 是 


| ea” er 十 已 工 a _ 已 二 
sinh x = 5 coshx = 


tanhx 二 二 - 
ee +e 


而 另外 三 个 双 曲 函数 是 sech x，csch x 和 coth xz, 它们 分 别 是 cosh x，sinh x 和 tanh r 的 倒 
数 ， 


国 ”六 个 双 由 函数 的 Mathematica 表示 是 Sinh, cosh， Tanh, Sech, Csch, Coth, 


例 25 计算 sinh 2 的 近似值 ， 
Sinh[2 |]//N 
3.62686 


反 双 曲 痛 数 分 别 用 AreSinh, MrcCcosh, AreTanh, ArcSech, ArcCsch 和 ArcCoth 表示 ， 
由 于 tosh 和 Sech 并 不 足 一 一 对 应 的 ,因此 Mrecosh 和 ArcSech 对 于 实 参 数值 , 呈 返 回 正 
值 . 


例 26 Rresinh[ -21//N 
—1.44364 
ArcCosh[2]//N 
1.31696 
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此 时 有 一 菜 符 殊 的 命 人 值得 注意 : 


国 ”Print [表达 式 ] 显 六 表达 式 ,后 接 分 行 符 . 
加 ”Print 衣 达 式 1, 表 达 式 2,… 】」 显 示 表 这 式 1, 表达 式 2,…, 然后 只 


一 个 分 行 符 . 


协 一 看 可 能 会 记得 Print 节令 是 多 余 的 ,四 为 只 要 输入 任何 变量 的 名 称 ,就 会 得 出 它 的 
值 .然而 , 在 有 些 地 场合 中 它 是 非常 有 用 的 (例如 , 见 本 章 稍 后 第 2.7 节 循 环 ). 


例 27 Print[ “This printsa line of text.”| 
This prints a line of text. 

例 28 a=1:b=2,c=3 :d= 4;e@=5,， 

Printla,b,c,d,el 

12345 


在 Mathematica 中 有 一 类 遂 数 以 字母 0 关 尾 ， 


ArgumentCountd Atomd 
EllipticNomen Event 

Freed HypergeometricPFD 
Integqerd IntervalMemnberd 
Legqendref LetterQ 
LinkReadyd0 L18St 
MachineNunmberd HatchLocalKaned 
Matrixtd Hemberf 

Numberd NumericH 
Optiond Orderedn 
Polynomiald Pr1imen 
stringMatcho Stringtd 

True Unsamed 

Valued Vectord 


Digit0 
ExactHumberd 
InexactHumberd 
lInverseEllipticNonmedn 
LinkCormectedQ 
LOWertCasey 
MatehO 

Namen 

Oddn 
Partitionga 

信 BDeBV 

Syntaxt 
UpperCasen 


这 些 函 数 用 来 检测 特定 的 条 件 , 并 进 回 True{ 真 ) 或 False( 假 ) 值 .可 以 从 Help 菜单 中 或 
辣 像 下 面 例 子 中 那样 用 ? 命令 找到 这 些 命令 的 语法 . 


例 29 ? Prined 


Primegl expr | yields True if expr is a prime number, and yields False otherwise. 


(PrimeQ[ expr]; 当 expr 是 素数 时 ,返回 真 , 否则 返回 假 ,) 


Primed[ S| 
Trne 
Primedl 6 | 


FAaAlSEe 


例 30 


+ Polynomiald 


PolynomialQ[ expr, var| yields True if expr is a polynomial in var, and yields 


False otherwise. PolynomialQ!| expr, 1varl, 


non1ial in the vari. 


"| | tests whether expr is a poOlvy- 


=- 330， 


2.3 


Mathematiwa 使 用 指南 


(Polynomiald[expr，var] :如 果 expr 为 var 的 多 项 式 ,返回 真 ,否则 返回 假 , Pelynonmi- 
alo[expr，!varl，…1 用 米 判 岂 expr 是 否 是 vari 的 和 多项式.) 

Polynomiald[xYy + 下 + AY¥, x | 

True 

PolYnomialo[x2y + x +vY, 二] 


False 
站 题解 容 


计算 10 的 平方 根 与 立方 根 的 近似 值 . 
解 FF 

/1077 或 者 Sqrt[10] /AN 
3.16228 


YI077N 或 者 10 ~ [173) //N 
2 .154d43 


2.6 二 项 式 系数 定义 为 C(n,&) 一 了 72 一 jf- 利 用 这 个 定义 计算 C(10,4) 


2.7 


2.8 


过, 当 


解 上 上 呈 


10! 
a!l (10— 4)! 


210 


或 者 Factorial[10]/ (Factorial[4| * Factorial[10 -~ 4]} 


一 个 骨 子 有 六 个 面 ,编号 分 别 为 1 到 5 每 个 面 出 现 的 概率 是 相同 的 ,对 上 四 次 元 仍 子 的 过 
解 


Randonm[ Integer, {1, 6}] 
Randoml Integer, |1, 6}] 
Random[ Inteqer, {1, 6|] 
Random[ 1nteger, |1, 6€||] 


1 
3 
3 


给 出 介 于 r 与 2r 之 间 的 有 15 位 有 效 数字 的 伪 随 机 数 . 
解 


Random[ Real, [nx, 2nr1}, 151 
4,.13129131207734 


第 27 个 Fibonacci 数 是 多 少 ? 
解 二 
Fibonacci[27 | 


2.10 


之 .上 


2.14 
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i156418 


证 明 在 157 与 163 之 间 没 有 素数 . 
解 

Prime[ 37] 

157 

Primel[ 38 | 

163 


由 于 157 与 163 为 相 邻 的 素数 ,因此 在 它们 之 间 再 没有 素数 . 


最 靠近 v159 的 整数 是 多 少 ? 
解 “* 逐 


Round[ Sqrt[159]] 或 者 v159 //Round 
13 


(x +1 位 于 哪 两 个 租 邻 整数 之 间 ? 
和 解 于 

Floor[ (rr + 1}°] 

151729 

CeilinglL (zr + 1}’] 

151730 


因此 数 (+1) 位 于 151 729 与 151 730 之 间 . 


先 用 z=17， 再 用 = rr， 计算 [|z1=-Lz| 的 值 . 


解 FF 

头 =17 ; 

Ceiling[x] - Floor[x | 
0 

x = Pi 

Ceiling[x] - Floor[x] 
1 


5 355 与 40 425 的 最 大 公约 数 与 最 小 公 倍 数 是 多 少 ? 


解 《到 
SCD[5355, 40425] 
105 

LCM[ 5355, 40425 ] 
2061675 


~ 通过 试验 确定 37 这 个 值 . 


证 明 1$，16 和 30 是 互 素 的 . {如 果 岂 个 数 没 有 不 慑 于 1 的 公约 数 , 则 称 它们 是 互 素 


的 .) 
解 上 末 
SCD[15, 16, 30] 


" 31 * 


Mathematiea 性 用 指南 


-= -EE EE 


1 
由 环宇 们 的 GCD 竺 于 1 即 它们 只 有 惟一 的 公约 数 二 因此 它们 是 互 素 的 . 


2.16 在 数论 中 有 -个 定理 说 现 个 数 的 GCD 与 LCM 的 乘积 等 于 这 两 个 数 的 乘积 . 利用 
74 613 和 85 085 验证 这 个 定理 ， 
解 绒 盏 
a = 74613; 
b = B5085; 
GcD[a，b] * ECN[a， b] 
6348447105 
a *b 
6348447105 
显然 两 个 习 积 是 相同 的 . 


2.17 证明 156 875 438 767 不 是 素数 . 
解 ”& 汪 


FactorIintegqer[ 156875438767 ] 
1153, 11, ;2959913939,1|| 


这 就 证 了 明了 156 875 438 767 等 于 素数 53 与 2 959 913 939 的 乘积 ,因此 它 不 是 素数 ， 


2.18 在 前 一 个 问题 中 , 为 了 分 解 156 875 438 767, Mathematica 花费 了 多 长 时 间 ? 
解 FE 
Timing[FactorInteqer[156875438767]] 或 者 
Factorlnteger[156875438767]//Timing 
0.06 Second, 1153,11, 12959913939,1||| 
外 大 约 花 各 了 0.06 秒 的 时 间 ( 上 县 体 时 间 值 与 计算 机 有 关 ). 


2.19 ”计算 的 自然 对 数 . 
解 E 


LogfE ] 或 者 Log[E ~ 5] 或 者 Log[ Exp[5]] 
5 


2.20 ”计算 的 常用 对 数 ( 以 10 为 底 ), 它 的 近似 值 为 多 少 ? 


解 ”EE 于 

Log[10, BE ] 或 上 Log[10, E~5] 或 者 Log[10，Exp[$]] 
7 

Log[10] 

SAAN 

2.17147 


2.21 计算 v3+y2 和 y3 一 v2 到 50 位 有 效 数字 .然后 汗 算 它们 的 乘积 ， 
解 Ff 


三 NT 3 + 2, 501 


2 


+2.24 


2.25 


2.26 
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3.1462643699419723423291350657155704455124771291873 
b = WIv3 -v2, 50] 
0.31783724519578224472575761729617428837313337843343 


-和 


1 .0000000000000000000000D090000060000000000D0000000000 


sin 15" 的 准确 值 是 多 少 ?” 给 出 它 的 有 20 位 小 数 和 的 近似 值 . 
解 上 
Sin[15 Degree] 或 者 Sin[15°1] 
=1+y3 
2 2 
KR[ 专 ，20] 
0.25881904510252076235 


选择 介 于 0 与 1 之 同和 的 一 个 随机 数 x, 计算 si x + cos* x, 
解 I 
x = Random[ 1 ; 


Sin[x]z ， cosfx]: 在 三 角 未 数 中 , 对 于 所 有 
的 x ,sinix+eon r=1. 
1 


Tr—r 


求 出 介 于 一 x/2 到 x/2 之 间 的 一 个 数 , 它 的 正弦 为 172. 
解 本 


ArcS8in|[ 1/2 | 


Ti |3 


选择 一 个 介 于 0 到 1 之 芒 的 随机 数 ,计算 cosh? zx 一 sinh? 了. 


解 上 用 

x 一 Randoa[ ] ; 以 曲 隔 数 的 性 质 类 似 于 三 和 角 
Cosh[x]:— Sinhlx] 画 数 ;对 及 有 的 z，cosh2z - 
1 munbic=1. 


给 出 tanhlin z) 的 等 价 表 示 . 
解 天 
Tanh[Loglx]] 


-1+x: 
1+x 


一 骤 度 大 约 等 于 多 少 度 ? 


解 4 天 


了 [17Degree | 
57 .2958 


4 “ 


,32 


Nathematica 使 用 指南 


oo 二 100 000 是 多 少 ? 
解 FF 
co + 100000 


[本 | 


复数 3+4i 的 平方 根 是 多 少 ? 
解 ”、 有 EE 


v3+4I 或 者 Sgrt[3 + 41] 
2 十 壮 


从 个 物体 中 一 次 取 个 的 排列 总 数 为 P(n,&) = 对 .孝公 从 20 个 物体 中 一 次 取 10 
个 的 排列 总 数 是 多 人 少 ? 

解 上 本 

n= 20: 

k=10: 

nlfki 绪 者 Factorial [n|/Factorial[k) 

T7044257280 


100 000 的 自然 对 数 介 于 哪 两 个 相 邻 整数 之 间 ? 
解 ” ¥ 

Floor[Logl 100000] | 

11 

Ceiling[ Log[100000 |]] 

12 

所 以 ln 100 000 位 十 11 和 12 之 间 . 


62 173 467 除 以 9 542 的 商 和 余数 分 别 是 多 消 ? 
解 上 

Queotient[62173467，9542 ] 

6515 

Mod[ 621734467, 9542] 

7337 


求 出 1 001 与 1 331 的 最 大 会 约 数 与 最 小 公 倍 数 ， 
解 GE 

GcD[1001，1331 ] 

11 

LCM[1001, 1331] 

121121 


对 10! 进行 泰 因 数 分 解 ,计算 机 需要 花费 多 长 时 间 ? 


2 ,35 
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解 “” 星 

FactorIinteger[10t ]//Timing 

10.01 Second, | 12, 8|}, 13, 4t, {5, 21, 17, 11!! 

因此 素 因 数 分 解 结果 为 234577!, 所 花费 的 时 间 与 所 用 计算 机 的 CPU 速度 有 关 ， 


给 出 cos 


解 上 六 


2 
sin"!| -过 | | 的 代数 表示 ， 


x 二 1 


Cos[ArcSin[x/(x + 1)]) 
| (+2) 


15 485 863 是 素数 码 ? 
和 解 EE 季 
PrimeQ [15485B63 ] 


TIue 


2.3 基本 的 算术 操作 


我 们 已 知道 ,类 和 似 于 加 法 等 的 基本 算术 操作 是 在 两 个 操作 数 之 间 揪 入 一 个 操作 符号 实现 
的 . 国 此 3 与 5 的 和 是 通过 输入 3+5 得 到 的 ,然而 , 在 某 些 高 级 应 用 中 , 如 果 能 用 肾 数 表示 这 
些 操作 , 束 非 第 有 用 . 正 是 处 于 这 个 原因 , Mathematica 包含 了 下 述 匡 数 ， 


例 31 


Plus[a ,b,…] 计算 a，b,… 的 和 ,Plus[a ,b] 等 价 于 a +b. 

Times[a,，b,…] 计算 a，b,… 的 要 .Times[a，b] 等 价 于 a * bk. 

Subtract[a, b] 计算 a 与 上 的 差 , 只 能 使 用 两 个 参数 值 . subtract [a,b] 等 价 十 
a—b. 

Divide[a，b] 计算 aa 与 5 的 商 . 上 只 能 使 用 两 个 参数 值 , pivide[a，b] 等 价 寺 yh. 
Minus[a] 络 出 己 的 加 法 逆 元 ( 析 反 数 ),Minusfa] 等 价 于 一 a. 

Power[a, b] 计算 a". Power[a，b，c] 给 出 a? , 等 等 . 


Plus [2, 3, #4] 

9 

Times[ 2，3，4] 

24 

Fower[2，3，4| 
2417851639229258349412352 


如 果 要 查看 Mathematica 对 这 些 范 数 内 部 处 理 的 方法 ,通常 使 用 FullForn 命令 ， 


FullForn [表达 式 ] 显 示 表 达 式 的 内 部 形式 ， 


FullFornm 命令 不 但 可 用 十 算术 操作 ,而 且 也 话 用 于 有 所 有 其 他 类 型 的 Mathematica 图 数 操 必 ， 


例 32 


FullFformla + b + cj] 
Plusla, b, cl] 
FullForm a — bj 


:35 。 


Nathematica 使 用 指南 


EE lial” 


Plusfa，Times| ~ 1, bl| 
FullForm[ (a *b) “ce] 
Power[ Times[a, bl], ¢| 


除了 上 面 讨论 的 标准 算术 拘 作 符 导 外 ,还 有 儿 个 在 桂 殊 场 侣 非 角 去 用 的 命令 : 
Increment[x] 或 x+ 上 + 使 广 的 值 增 1, 付 返回 x 源 来 的 值 ， 
Decrement [x] 或 zz- ~ 使 x 的 值 减 1, 介 返 问 x 原来 的 值 . 
PreIncrement[x] 或 十 +z 使 x 的 值 增 1, 计 返回 x 的 新 值 . 
PreDecrement|x|] 或 一 -x 使 x 的 值 减 1, 并 返回 x* 的 新 值 . 
AddrTo[x,， Yj] 或 x+ =Y 使 x 的 信和 增加 vv, 并 返 姜 的 新 值 . 
SubtractFrom|[ x, yj 或 x 一 =Y¥ 使 x 的 值 减 少 Ys 并 返回 x 的 新 值 . 
TinesBy [x, ¥] 或 x * =y 使 x 的 值 习 以 yy, 并 返回 x 的 新 值 . 

面 ” DivideBy [x, Y] 或 x/=Y 使 x 的 值 除 以 y, 并 返回 x 的 新 值 . 

为 了 使 x+ +，+ 二 一 ,一 一 XXX+=Yzx = 二 yy 或 x/ =y 发 挥 作用 ,x 必须 其 有 数值 . 
下 面 两 个 例 了 演示 了 各 种 加 法 命令 . 杜 应 的 减法 ,来 法 和 除法 的 命令 类 似 . 


例 33 x= 3; XX = 3; 
死 本 本 二 十 开 
3 < 一 返回 x 原来 的 值 4 < 返回 x 的 新 值 
x x 
4 一 x 的 实际 值 为 4 4 < 的 实际 值 为 4 
x++ 等 价 于 语句 序列 + + 等 价 十 语句 x=x+1 
x 
下 = 下 二]; 
例 34 x=3;y=4， x=3 3}7=4; 
Xt+y T+ = 
7 退回 新 的 和 和 值 7 下 返回 新 的 和 值 
x 下 
4 x 有 崔 值 没有 改变 4 < xx 的 新 值 为 ? 


x+ =Y 等 价 丁 滞 避 x=x+Y 
习题 解答 


2,37 Mathematica 着 如 何 计 算 表 达 式 a +beja 的 ? 
解 5 且 


FullForm[la + b x*e/dl] 
plus[la, Times{b, ce, Power[d, ~ 111] 


2,38 人世 Mathematica 内 部 足 好 何 处 型 Ninus[x] 娩 数 的 呢 ? 
解 (和 


FullForn[Minus[x]|| 


Times| —1, x| 
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2.4 字符 串 


字符 串 也 就 是 (有 序 的 ) 字 符 序 列 .字符 埋 的 值 并 不 是 数 ,通常 被 用 来 做 为 表格 .图 形 种 其 


他 结 采 的 标签 ， 


世 Mathematica 中 ,字符 串 被 世 围 在 双 引 号 内 ,因此 “abede” 就 是 有 五 个 字符 的 字符 囊 . 注 


意 不 要 把 "abcde 与 abcde 泥 在 一 起 ,因为 后 者 表示 一 个 符号 ,而 并 不 是 字符 串 . 


在 Mathematica 中 有 许多 操作 字符 串 的 命令 . 

旧 ”StringLength [字符 串 ] 发 回 在 字符 串 中 的 字符 个 数 . 

旧 ”StringJoin [字符 串 1， 字符 串 2, …] 或 者 字符 种 1 < 之 > 字符 串 2 之 >… 拒 两 个 或 
多 个 字符 串 组 合成 一 个 新 字符 串 , 合并 后 的 长 度 等 于 原来 每 个 字符 串 长 度 的 总 和 . 

上 ”StringReverse [字符 囊 ] 使 字符 串 反 序 . 

StringDrop 从 字符 串 中 删除 字符 ,这 条 命令 有 五 种 形式 ， 

关 ”StringDrop [字符 串 ，n] 返回 从 字符 串 中 删除 前 n 个 字符 后 的 结果 . 

于 “StzingDrop [字符 串 ，- aa] 返回 从 字符 串 中 删除 后 n 个 字符 的 结果 . 

加 ”Stringprop [字符 串 ，inj ] 返回 从 字符 串 中 删除 第 n 个 字符 的 结果 . 

上 StringDrop [字符 串 ，{ -nj] 返回 从 字符 串 中 删除 倒数 第 n 个 字符 的 结果 . 

加 StringDrop [字符 串 ，jm，aj ] 返回 以 字符 串 中 删除 从 第 m 个 到 第 n 个 字符 后 的 结 
果 . 

StringTake 命令 从 宁 符 串 提 到 字符 , 它 的 形式 类 似 于 stringDrop; 

国 ”StringTake [字符 串 ，n] 返回 字符 串 中 的 前 n 个 字符 . 

加 ”StringTake [字符 串 ，- na] 返回 字符 串 中 的 后 n 个 字符 . 

年 ”StringTake [字符 串 ，[a 1] 返回 字符 串 中 的 第 n 个 字符 

于 StringTake [字符 串 ， [=-n|}: 返回 字符 串 中 的 倒数 第 n 个 字符 . 

国 ”StringTake [字符 种 ，ja, n |] 返回 字符 囊 中 的 从 第 m 个 到 第 nm 个 字符 . 


例 35 在 这 个 例子 中 我 们 定义 strng =“abedefg .在 干 面 的 输出 都 显示 在 命令 的 石 边 【 注 意 


这 里 为 了 避免 与 Mathematica 符号 Strind' 混 消 , 并 没有 使 用 - string ) 


strng = abcdefg” abcdefo 
strng < > hijklinnop” abcdefghijklmnop 
StringLength[ strng] 7 
StringReverse[ strng | gfedcba 
StringDrop[ stzrng，2 ] cdefg 
stringDrop[ strng, -~ 2] abcde 
StringDrop[ strng, 121] acdefg 
StringDrop[ strng, {- 2j] abcdeg 
StringDrop[ strng, 12, 5}] afg 
StringTake[ strng, 2 | ab 
StringTakel strng, -2] fo 
StringTake[ strng, |21}] b 
StringTake[ strng, | - 2}1 f 
StringTake[ strng, {2, 5}] bcde 


StringInsert 疯 数 可 以 同 已 有 字符 串 中 插入 字符 ， 
轩 ”StringInsert [字符 串 1， 字 符 串 2，n] 生成 一 个 新 的 字符 串 , 其 构成 为 字符 串 2 声 
入 在 久生 串 1 的 第 n 个 字符 前 . 
加 ”StringInsert [字符 串 1， 学 符 串 2，- an] 生成 一 个 新 的 字符 囊 , 其 构成 为 字符 囊 2 


Mathematica 使 用 指南 


mn 一 -一 一 一 一 -一 CT 


搬入 在 字符 串 1 的 倒数 第 n 个 字符 前 . 

面 ”Stringlnsert [字符 串 1， 字 符 串 2，jnal，n2，…}] 生成 一 个 新 的 字符 串 ,其 构成 为 
多 份 字符 串 2 插 入 在 学 符 串 1 的 第 ni1，n2,… 个 字符 前 . 

stringReplace 孙 数 可 以 用 另外 的 学 符 串 赫 反 给 定 字符 串 的 一 部 分 . 

图。 StringReplace [字符 串 ， 字 和 罕 串 1 一 新 字符 串 1] 在 字符 串 中 只 要 有 字符 种 1 出 现 ， 
就 有 新 字符 串 1 替换 . 

国 。 StringReplace [字符 串 ，{ 字符 串 1 一 新 字符 串 1， 字 符 串 2 一 新 字符 只 2,…}] 在 字 
符 串 中 只 要 有 字符 串 1 出 现 , 就 有 新 字符 串 1 蔡 换 , 同样 只 要 有 字符 串 2 出 现 , 就 有 
新 字符 串 2 蔡 搞 ,…， 

图 ”StringPosition [字符 叮 ， 子 字符 串 ] 眠 回 一 个 多 表 , 出 子 字符 串 在 字符 帅 中 出 琵 的 
所 有 开始 与 结束 位 置 组 成 .( 列 表 将 在 第 三 章 详 细 介 绍 .) 


例 36 strngl = “abcdefy ; 
strng2 = 123 ; 
StringInsert [strngl, strng2, 3 ] 
ablz2a3cdefa 
Stringlinsert | strngl, strng2, - 31 
abcdel23fa 
StringInsert [strngl, strng2, |1, 3, 5, 7|} 
l123abl23cdl23ef12?3g 
StringReplacel strnygl, “ab” 一 “RARB”] 
ABcdefq 
StringReplace[ strngl, {“ab’” — “AB”, "fg” — FG"|} 
ABedeFG 


例 37 strng=“abcxabcxxrabcxxxabc ; 
StringLength|[ strng | 
18 
StringPosition|[ strng, “abe” | 
111, 31, 15, ?1, |10, 12+, {16, 18}): 


2.5 峰值 .类 换 与 远 辑 关系 


生 所 有 的 程序 说 计 霹 言 中 ,为 了 把 计算 结果 传递 给 一 个 符号 , 以 便 稍 后 再 使 用 ,都 提供 了 
贱 书 田 能 .Mathematica 提供 了 两 种 类 型 的 贱 信 ,但 是 到 底 在 哪 种 情况 下 使 用 哪 种 赋值 语句 ,经 
常会 使 人 六 惑 . 

加 1lhs = rhs 是 一 个 邮 时 赋值 语句 ,这 里 在 进行 赋值 时 , 就 对 rhs 进行 计算 . 

加 1hs ; = rhs 是 一 个 延 时 赋值 语句 , 以 后 每 次 调用 时 才 计 算 rhs. 

在 许多 情况 中 这 两 种 赋值 语句 产生 相同 的 结果 , 然而 在 有 些 情况 中 还 是 需要 细心 处 理 的 . 
在 直面 给 出 的 例子 中 应用 了 后 面 章节 将 讨论 的 概 总 .但 因 这 些 例 子 是 不 解 自明 的 , 故 比 较 容 易 
理解 . 


例 38 当 递 归 定 义 孙 数 (第 2.9 节 ) 时 ,就 必须 使 用 := 运算 符 . 例如 ， 
f[I0}]} = 1; 
f[n] .= nfin-1] 
给 出 = 的 阶 滋 .因此 直到 给 由 mm 的 值 时 , Mathematica 才 计 算 二 [mp] 的 值 , 所 以 必须 用 延 时 赋值 
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符号 ; ==. 如果 使 用 = 就 会 导 至 递归 出 错 . 


例 39 当 定 六 分 段 函 数 { 第 2.9 节 ) 时 ,我 们 必须 用 ;= .例如 ， 
glx_] := xiz 0 < 是 一 个 条 件 . 只 有 当 xz0 时 才 进 行 赋值 . 
[xz | := -mA :xcDO 
如 采 使 用 = 就 会 引起 麻烦 ,因为 直到 给 出 x 的 值 时 , Mathematica 才能 确定 取 的 是 哪 一 个 
分 支 . 


例 40 这 样 你 就 有 可 能 以 为 : = 峰值 更 具有 一 般 性 ,可 以 应 用 到 任意 场合 ,在 某 种 意义 上 讲 ， 
这 是 正确 的 , 但 在 有 些 情况 中 ,我 们 应 该 使 用 = .下 面 给 出 一 个 极端 但 也 颇 有 道理 的 
例子 , 定义 


FlIx_|]:= | tE:Sin[t at 


每 次 需要 计算 F 的 一 个 值 时 , Mathematica 就 要 进行 几 次 “分 部 积分 "计算 .不妨 想像 一 下 
在 需要 得 到 在 计 多 不 同 点 上 的 通 数值 时 所 遇 到 的 问题 , 例如 在 指令 Blet[?[z],{x，0，5|]. 
人 它 要 利用 在 0 到 5 之 间 的 许多 值 作 图 .每 次 计算 的 值 时 ,就 葛 从 头 开 始 每 次 利用 分 部 积分 
重新 计算 积分 , 因此 显示 图 形 就 要 花费 相当 长 的 时 间 , 而 使 用 = 就 会 使 图 形 的 显示 相当 迅速 ， 
有 时 候 , 想 计 算 表达 式 的 值 ,而 又 不 想 给 菜 个 符号 赋值 , 那么 可 以 用 替换 符号 /， 


例 41 假设 要 计算 x =3 时 表达 式 zx*+$r+6 的 值 ,而 又 不 想 给 x 赋值 . 
w+ 5x+ 6/.x—3 
230 
? x 
Global ~x 一 xz 情 然 没有 定义 ， 
/也 可 以 用 来 把 一 个 表达 式 替换 为 男 一 个 表达 式 .如 果 使 用 了 花 括 号 的 话 , 可 以 一 次 进行 
多 个 蔡 换 . 


例 42  v2xr+3+[2X+3)2/.2x + 3 一 37 + 5 


V(3Y+5) + (3y+5) 


例 43 2x+3y/.{y—x, x—*y| 
3XxX+ 2y 


注意 不 要 把 = 与 逻辑 等 号 == 混淆 .1he == rhs 的 值 为 True 当 且 仅 当 1hs 和 rhs 有 相 
同 的 值 , 否则 它 的 值 为 False. 在 方程 求解 {第 六 章 ) 中 将 大 量 用 到 好 辑 等 式 . 

际 此 之 外 ,还 有 一 些 可 以 应 用 的 逻辑 关系 . 下面 汇 总 了 这 些 轴 辑 关系 . 

局 Equal[x，Y] 或 x ==Y 的 值 为 真 当 且 仅 当 x 与 Y 有 相同 的 值 . 
Unequal[x, Y] 或 x!1=yY 或 x 天 Y 的 值 为 真 当 且 仅 当 x 与 Y 的 值 不 同 . 
Lesgs[x, Y] 或 x<Y 的 值 为 真 当 日 仅 当 在 数值 上 x 小 于 y. 
Greater|[ x, y] 或 x >Yy 的 值 为 真 当 且 仅 当 在 数值 上 其 大 于 了 ， 
LessEqual[x, y] 或 x <<=Y 或 x 二 YY 的 值 为 真 当 且 仪 当 在 数值 上 x 小 于 或 等 于 vy. 
GreaterBqual[|x, ¥] 或 x > 一 y¥ 或 * 守 Y¥ 的 值 为 真 当 且 仅 当 在 数值 上 x 大 于 或 等 于 vy. 


注意 Equal 与 Unequal 可 以 比较 数值 量 , 也 可 以 比较 非 数值 其, 而 Less, Greater, 
LessEqual 与 GreaterEqual 则 只 能 进行 数值 量 比 较 ， 


例 44 


Mathematica 使 用 指南 


1 == 1!= 2 1 <=2 at+ a == 2a 
False True True True 
2 == 2 21= 2 2 <=2 -| 
True False True 立 之 已 


在 Mathematica 中 也 包含 下 述 逻 辑 操作 ， 


注意 “可 以 用 序列 按 链 请 闸 + IE + | + 琴 


And[p, 9j 或 p&&gq 或 pAq, 当 Pp 与 的 值 都 为 Trve 时 , 它 的 值 为 True, 否则 为 
False. 

Orlp, 9] 或 pllq 或 pVq, 当 p 或 gq 的 信 ( 或 两 者 同时 ) 为 True 时 , 它 的 值 为 meue， 
否则 为 False， 

Xor[Bp,， qj, 当 p 或 gq 的 值 (但 不 同时 } 为 ?True 时 , 它 的 值 为 rrue, 否则 为 False. 
Not[Bj 或 1 或-p, 当 pb 的 值 为 False 时 , 它 的 值 为 True; 当 p 的 值 为 True 了 时, 蕊 的 
值 则 为 False. 

Inoplies[p, 91 或 Pp 9, 如 果 p 的 值 为 True,q 的 值 为 False, 则 它 的 值 为 False, 否则 
七 的 值 为 True, 


加 得 到 之 . 


蕊 辑 表达 式 可 以 用 Logicalkxpand 命令 进行 比较 , 这 条 命令 把 逻辑 表达 式 转化 为 析 取 东 


陈 . 


例 45 


利用 Mathematica 验证 氨 辑 分 配 律 :p 信 (q¥Vr) = (pAgqlYV (pArY. 
lhs = p&g {gq ||r); 

rhs = (p&&q) | (PSSr); 

lhs == rhs 

(pg&t{qa|l|lr)) == (p&&ql|lp&tr) 

LogicalExpand[ lhs] ==LogicalErpand[rhs] 


True 
习题 解答 
我 们 将 在 第 七 童 中 介绍 Mathematica 命令 Bxpand[ 表 达 式 ], 这 条 命令 对 表达 式 进行 代 


数 展 开 . 分 别 用 = 和 和 := 把 两 个 符号 a 与 b 都 定义 成 Expand[(x + 1) -3j. 然 后 令 x 
= u + vy, 骨 计算 a 与 b, (体会 两 者 之 间 的 差别 . 


解 上 六 

a = Expend[{x + 1) ~3] 

1+3x+3x 十 了 < 马上 展开 表达 式 

b : = Expandi[x + 1)^3] * 直到 调用 b 时 才 会 进行 展开 
X=u+v 

ut+v 

名 

ii+3ta+yw+3atu+vw) +(u+v)a + 在 展开 后 把 x 替 搞 为 w+v 
b 


1+3u+3 + + 3v+ uvr+ 


< -在 展开 之 前 把 x 替换 为 u+y 


3ucyv+ 392 + 3Ur2 十 


第 二 章 基本 概念 


2.40 ” Together 丛 今 将 在 第 七 章 中 讨论 , 它 把 两 个 分 数组 合 利用 道 分 组 成 有 全 分 母 的 一 个 分 


2.41 


了 ,二 2 


1.44 


数 . 分 别 用 = 和 ;一 把 符 玉 了 与 = 定 光 不 Together[a + b], 然 后 令 a= 1/ix,b=1/(x 
+1), 再 计算 Y 与 z. 

解 4 祖 

了 = Together[a+b| 

a+D 二 此 时 a 与 b 不 是 分 数 , 因 此 Together 不 运行 ， 
z := Together[a+b] 

a = 1/x; 

b=1/(x + 1); 


“| 
| 


+t < 由 于 ?Together 是 在 引入 分 数 之 朋 执 行 ,因此 Together[la+b]=atb. 


站 


] 二 交汇 _ 
x(1 + x) 1 + xj 一 Together 二 在 引入 分 数 之 后 执行 的 . 


Mathematica 人 闹 今 Simplity[ 表 达 式 ] 会 芝 试 简化 代数 表达 式 , 输 入 a = Simplify 
[poly] 和 b : = Simplify [poly], 然后 令 poly=x +2x+1, 计算 aa 与 b 的 值 ,并 解释 结 
二 的 差别 . 

解 二 
a= Simplify[ poly |]; 

: = Simplify[ poly); 
poly=x +2x+1; 
如 
1+2x+x’ 
b 
(1 +x)’ 
由 于 a 是 马上 进行 计算 的 ,所 以 它 的 值 就 是 符号 poly 的 简化 形式 , 仍 为 poly. 然后 
poly 被 替换 为 x +2x+1. 另 一 方面 ,直到 最 后 一 行 调用 时 b 才 进 行 简 化 , 因此 Mathe- 
matica 就 对 给 定 多 项 式 进行 简 化 ， 


在 表达 式 z*+ 5zx +6 中 用 ?+2zx +3 替换 x. 
解 上 

x +5xt+6/.x—r +2x+3 
6+5(3+2x+x)+(3+2x+x )’ 


在 表达 式 {fz + y+ x) 中 用 xz + 1 替换 y, 用 x + 2 蔡 换 =. 
解 EF 


{x+yt+z)/. [yx+1, z—x+2| 
(3 + 3x)° 


利用 Marhematica 验证 德 ' 摩 尔 根 {De Norgan) 定 律 ， 
~- {pAqg) = 一 BY 一 9 与 一 (pVg) = 一 BA 一 


， di + 


Mathemartica 使 用 指南 
解 LogicalExpand[l! (p&&9q})| = 一 DogicalBxpand[p ||'!g] 
True 
Logicalgxpandl! {p | gq]] —LogicalExpand|[!p &E!q | 


True 


2.6 和 与 积 

和 与 积 在 数学 中 是 非常 重要 的 ,Mathematica 使 得 和 与 积 的 计算 相当 简单 .与 许多 计算 机 
语言 不 同 ,这 时 的 初始 化 是 自动 进行 的 ,而 且 语 法 很 穿 易 使 用 , 尤其 是 如 果 使 用 BasicInput 模 
板 的 三 ,更 是 如 此 ,任何 符 筷 都 可 以 做 为 求 和 的 指标 (在 下 面 的 描述 中 使 用 的 是 i). 如 果 使 用 
「 increnment 的 话 , 指标 可 以 负增长 . 


四 ”sum [a[i]，fi，imaxi] 计算 和 3 a[i]. 


面 ” Sum [ali]，fi，imin，imax}] 计算 和 5 a[li]. 


1 a .Min 


器 Sum [a[i],，|i，imin，imax，increment}] 计算 利 5 a[ i], 步 长 为 increment. 


例 46 为 了 计算 前 20 相 邻 整数 的 平方 和 ,输入 


1 
注意 ,即使 Marhematca 接受 形式 为 
Sun[i -2, |1,201] 的 输入 ,但 出 于 明 
2870 了 的 考虑 ,建议 司 用 初 冶 值 1. 


Sum[i~2，{i，1，201] 或 者 2 i 


1 1 1 上 
例 47 计算 和 js+17+1 + 和 二 可， 


Sunml 1/i, {i, 15, 51, 2|] 


63501391475806044193 
96B845140757697397075 


血 ”数值 近似 值 可 以 用 NSm 得 到 , 它 的 语法 与 Sum 一 样 . 


17 19 
NSum[ 1/i, |i, 15, 51, 21] 
0 .6557 


例 48 给 出 和 让 + 访 + 方 +…+ 直 的 近似 值 


求 和 限 可 以 是 无 避 .Mathematica 来 败 揽 杂 的 方法 计算 无 穷 和 ， 


Ll ll,.. 
例 49 计算 +t161 


Sum[1/i~2，{i,，1，infinity]] 或 者 > ， 二 
1=1 1 


2 
工 _ 


二 重 和 可 以 利用 下 述 语 法 得 到 , 也 可 以 更 方便 地 两 次 点 击 BasicInput 模板 上 的 >， 符号 


第 二 章 某 杯 概 富 


下 一 


实现 .这 也 同样 可 以 扩展 到 -: 重 和 四 重 和 甚至 更 多 重 和 . 
四 ”sun[a[i, [i inaxj，|j，jaaxj] 计算 和 3 》) a[i 引 


区 Sun[a[i, j]，{i, imin，imaxj，!j，jmin，jmax|] 计算 和 . 


fa 


2, 2, ali,ij]. 


1® min ] F jom 


加 Sun[a[li, j], {i, imin, imax, i _ increment|, [jj, jmin, jnax, j] increment}] 计算 . 


利 > ， > ya[i, 相 , 步 长 分 别 为 1 inerement 与 ]_ ircrement. 


1 = Amn ] = jmn 


二 Sun 与 Sum 具有 同 祥 的 语法 ,工作 方式 类 侯 , 但 给 出 的 是 数值 近似 值 . 


; .i111 2 ,2 3 3 3 3 
例 50 计算 | 十 + 六 + +l?+ 2 人 + + 11+2+314 
3 #4 ， 
Sum[i/j，|i, 1，31，{j, 1, 41] 或 者 >，>， 了 
imi j= 
25 
地 


正 与 Sum 计算 和 一 样 , Mathematica 瑚 数 Product 计算 溢 积 , 它 的 语法 与 Sam 的 相同 ， 
昌 Exoduct[a[i1，!1，imaxl] 计算 乘积 Ia 


出 ”Broduct[a[i]，[i，imin，imaxjj 计算 和 滋 积 IE a[i] 


本 。”Product [a[i]，[i，inmin，imax，increment|] 计算 乘积 Ila ai. 此 长 为 incre- 
ment., 

”MEreduct 的 语法 与 上 面 一 样 ,返回 在 Broduet 中 给 出 的 磁 积 的 近似 值 . 

多 重 乘积 也 很 容易 计算 .下 看 列 册 了 二 重 乘积 的 语法 , 它 可 以 推广 到 三 重 . 四 重臣 积 , 等 等 


动 ”Product[a[i，ji]，!i，inmax|，!j，jmaxl ] 计算 溢 积 1l a[i, j], 


Product[a[i, j], [i, igin, inax), |j，jnin，jmax| ] 计算 和 I [IT a i,j]. 


j= jein 


各 Product[a[i, j], [i, imin, imax, i increnent|, {j, jamin, jnmax, j-increment|}] 


计算 和 下 [al a[i,j], 步 长 分 别 为 Tinecrement 与 jincrement. 


1 a :iT ] = 


例 51 计算 从 4 到 9 的 相 邻 整数 的 乘积 ， 
Product[i，fi，4，9j] 或 者 TT i 
60480 


例 52 对 于 二 项 式 系数 C(xn,)= 


lls 


HT 了 一 jj7' 为 了 更 高 效 地 计算 它 的 值 ,可 以 把 它 表示 为 
2 一 上 +1 | 利用 这 个 表示 计算 C(10, 4). 


n = 10.， 
K = 4; 
kl 
Product[{n -i)/(k- 33), ii 0, k-1})] 或 者 I 1 一 
ji 二 站 


210 


， 二 4 ， 


45 


:6 


47 


.448 


.49 


.50 


.51 


Nahematica 使 用 指南 


习题 解答 


计算 前 25 个 素数 的 和 . 
解 E 


Sumn[ Prime[kj，fk, 1，25}] 或 者 5 Primel[ k | 


1060 


计算 从 15 到 30( 含 15 与 30) 的 整数 平方 和 的 平方 根 . 
解 “FE 


Sqrt[Sum[k2，{k，15，30}]] 或 者 [Sr 


2 v2110 


; 1 ,il lL 
解 党 


sun[1/2~i，[i,，0，Infinity}] 或 者 >， 六 
41 站 


2 


、 1 2 3， 59 
计算 和 六 + 3 + ++ 160 


解 “ 于 本 
59 


1 
2 i+1 


1m 1 


264414B0A4O 39329557497913717698145082779489 
21B8815009188A4990B65813523571412492142212 


给 出 从 1 到 n 相 令 整数 半 方 和 的 一 般 公 式 . 
解 


sus[k -2，|k, 1, a}] 或 者 
1 

onl +n)(l+2n) 

计算 前 100 个 素数 的 和 ， 

解 4 洛 


1% 
让》 Prime [i] 或 者 Sum[Prime[i], {i, 1, 1001] 


fi 一 


24133 


省 算 从 2 到 20 的 整数 的 目 然 对 数 乘 积 . 给 出 有 20 位 有 效 数 季 的 近似 值 ， 


< Mathematica 记 仕 了 这 些 标准 公式 . 


第 二 章 基本 概念 


解 上 
N[Product[Log[i], |i, 2, 20} j, 20] 
1.3632878207490815857 x 10° 


， 1 1 11,... 1 l,l 
3.52 计算 和 1+ [1+ 十 + [1+ 十 + 二 + + [1+ 十 + 二 + +30). 
十 4 天 
及 tt ， 
Sun[1/j，|i, 1，20]，|j, I, 让] 或 者 >》，>， 
irl1 d=1 
41054655 
T9024 
并 倍 | 1 1,1... 1 1 ,llr 
2.53 计算 [1+ 二 ) [1+ 士 + 二 | La 二 + + 汕 | 的 近似 值 ， 
媚 二 
i0 1 。 
NMProduct [Sum[1/j，{j，1，ij，|i，2，10}]] 或 者 [ >， 村 /AN 
d=2 =i 
1871.44 
2.7 特 环 


有 时 人 息 我 们 可 能 需要 重复 一 个 操作 或 一 组 操作 几 次 ,虽然 Mathematica 提供 了 利用 Sun 
与 Product 命令 方便 地 计算 和 与 积 的 功能 ,但 有 了 时候 处 理 的 工作 还 是 需要 利用 循环 的 方法 .在 
Mathematica 中 提供 了 三 种 基本 的 箱 环 国 煞 ;De, While 与 For. 


例 53 


例 54 


Do[ 表 达 式 ，{k}] 严格 地 计算 表达 式 次. 

Dol 表 达 式 ，[i，imax] ] 计算 表达 式 imax 次 ,其 中 主 的 值 从 1 变 到 imax, 每 次 步 长 为 1. 
Do[ 表 达 式 ，{i，imin，imax}] 当 i 的 值 从 imin 变 到 imax, 步 长 为 1 时 ,每 次 都 计算 
表达 式 ， 

Do[ 表达 式 ，iji，imin，inaf，inerenment]] 当 守 的 值 从 训 in 变 到 imax, 步 长 为 incre- 
ment 时 ,每 次 者 计算 表达 式 . 

Do[ 表 达 式 ，|i，imin，inmnax]，} j，jain，jmaxl,…] 当 并 的 值 队 imin 变 到 imax, 步 长 
为 1,j 的 值 从 jmin 变 到 jmax, 步 长 为 1 时 , 每 次 都 计算 表达 式 . 当 j 完成 一 个 循环 
后 ,i 的 值 增加 1, 依 此 类 推 ,这 就 是 所 谓 的 典 套 Do 循环 ， 

Dof 表达 式 , ii, imin, imax, i incrementj ,ij，jmin, jmax，j incerement] …] 形成 


一 个 散 套 Do 循环 ,这 时 步 长 为 指定 值 . 


DolPrint| "This line will be repeated 5 times.” |], 15}] 
This lire will be repeated 5 times. 
This line will be raepeated 5 times, 
This line will be repeated 5 times. 
This line will be repeated 5 times. 


This lirne will be repeated 5 times. 


下 面 这 个 例子 计算 从 5 到 25 相 邻 奇数 的 和 (当然 用 Sum 命令 要 更 方便 一 些 .) 


mysunm = 0; < mysum 的 初始 化 .这 -一 步 是 非常 重要 藤 . 
Dol nysum = mysun + k, Ik, 5, 25, 21] 


.45 ， 


Mathermattea 局 用 指南 


mYSun 


165 


下 面 这 个 例子 计算 所 有 分 子 与 分 母 为 不 超过 5 的 正 整 数 的 分 数 的 和 . 
fracsunm = 0 
Dolfracsum = fracsum + ij,ii 1, 5},1i, 1,5}] 
fracsun 
137 
d 
While[ 亲 件 ， 表 这 式 ] 元 计算 人 茶 件 ,然后 再 计算 表达 式 ,重复 这 个 过 程 直到 杀 件 的 值 
为 False. 


如 果 表 达 式 是 由 多 个 语句 组 成 的 , 那么 它们 之 间 用 分 号 阳 开 . 


例 56 


n=1; Whileln <6, Print[n|; n=n+1] 可 以 用 n+ + 代替 na=nt+l 
1 


in 


For [初始 化 ,检测 条 件 ， 增 量 ， 表达 式 ] 执行 初始 化 语句 , 然后 重复 计算 表达 式 与 增 
量 , 直到 检测 条 件 的 值 为 False， 


这 里 的 计算 顺序 是 检测 条 件 ,表达 式 , 然后 是 增 基 . 只 要 检测 条 件 的 值 为 False, For 循环 
就 会 结束 .如 果 初 始 化 检测 条 件 , 增 基 和 表达 式 中 有 的 由 多 个 语句 组 或 的 ,那么 用 分 号 分 开 相 


邻 语 可. 


例 57 


For[i = 1, iE5, 14 = 主 + 1, Print[i]| 


另外 ,虽然 IE 指令 不 是 循 坏 语句 ,但 它 经 党 与 其 他 的 循环 命令 合用 ， 


例 58 


EL 条件 , 真 , 假 ] 计算 条 件 , 并 且 当 它 的 每 件 值 为 True 时 执行 真 语句 ,如 琳 条 件 值 为 

False, 则 执行 假 合 : 

IE[ 闲 件 , 真 ] 计算 条件 , 并且 当 它 的 条 件 值 为 True 时 执行 真 语句 ,如 来 荣 件 信 为 
False, 则 不 执行 任何 语句 ,返回 值 为 Nw11.， 

王 [ 亲 件 ，, 假 ] 计算 条 件 ,并 且 当 它 的 条 件 值 为 False 时 执行 假 语句 , 如 果 条 件 值 为 
zue, 则 不 执行 任何 语句 ,返回 值 为 Nal1,( 注 总 这 里 有 两 个 相 邻 的 逗号 . ) 

IE[ 荣 件 ， 真 ， 假 , 空 ] 计 租 杀 件 , 并 且 当 它 的 人 茶 件 信 为 True 和 时 执行 真 语 避 ,如 果 杀 件 

值 为 false, 则 执行 假 语 句 , 如果 条 忻 的 值 既 不 是 True 也 二 是 False, 则 执行 空 语 梧 . 


It|2 == 2, Frint[’a’], Print["b"]] -2 ==2 的 值 为 True. 
a 


If[2 == 3, Print[“a |, Print|“b’|| < 2 == 3 的 慎 泽 False. 


第 -- 章 基本 概念 


b 
If[7, Print[“a’ |, Print(“b’|, Print[“c”|| < 了 抵 不 是 Trwve, 也 不 是 False. 


下 面 这 个 例子 中 把 素数 与 非 素 煞 分 开 , 从 而 演示 了 在 Do 循环 中 如 何 使 用 If 指令 的 方法 . 


例 59 DolIflPrimed[k], Print[k]}, Printl” “, k}], lk, 1, 20}] 
1 


11 


14 


17 


19 
20 


习题 解答 


2,54 ”利用 po 循环 计算 101 . 
拥 有 
fact = 1; 
n= 10: 
Dolfact = fact #k, [|¥k, nl! | 
fact 
362B8800 


2,55 利用 While 循环 计算 101. 
辣 - 
fact = 十; 
n= 10; 
Whileln>0, fact = fact x*n;n-—] 
fact 


4 


Mathomatica 使 由 指南 


TC 一 


436288U00 


2.56 利用 Fer 循 坏 计 算 101. 
解 ”E 
For[fact = 1;n = 1, nl0, n+ +, fact = n #* fact] 
fact 
3628800 


2.57 显示 出 从 1 到 20 的 穆 数 中 不 是 2，3，5 全数 的 那些 况 数 . 
解 EE 于 


DofIf[Mod[k, 2] == 0 | Mod[k, 3] = = 0 | Mod[k, 5] == 0, Print[k]], {k, 1, 
201] 


2.58 对 于 从 工 到 10 之 间 的 每 个 数 上 如果 大 为 偶数 , 电 示 出 它 的 一 灶 , 如 上 果 上 为 奇效 ,显示 
嫌 的 两 异 ， 
Do[ If[EvenQ[k|, Print[k/2}], Print[2 k]), Ik, 1, 10}] 


2.8 ”给 图 简介 


通过 观察 函数 图 形 ,可 以 对 隔 数 的 性 访 有 一 日 了 然 的 掌握 , 而且 世 数 图 形 对 某 些 问题 的 求 
和 解 世 有 很 大 帮助 . Mathematica 提供 了 几 个 功能 相当 强大 的 给 峡谷 令 , 而 且 这 些 合 令 也 韭 涡 容 
易 使 用 .为 了 设置 输出 结果 的 样式 , 这些 命 令 同 时 提供 了 一 太 组 选 硕 ,但 在 本 节 我 们 只 应 用 几 
个 由 Mathematica 筷 省 设置 的 最 基本 样式 .关于 图 形 俘 令 的 更 广 细 讨论 ,请 凡 第 加 章 和 第 五 
董 . 
Plot 全 令 给 制 二 维 疼 形 ， 
图 ”Plot[f[x]，[x，xmin，xmax} 】 丰 区 辐 xmin 所 x 之 xmax 上 众 制 函数 ftzx} 的 二 维 图 
形 . 
国 ”Plot[ if[x], g[x]}，|x，xmin,xmax} | 在 同一 坐标 系 中 绘制 两 个 函数 的 图 形 . 这 可 以 
白 然 地 推 上 到 同时 绘制 二 个 或 更 多 函数 图 形 的 情形 . 


第 二 章 基本 概念 + 49 ， 


一 


例 60 在 区 间 -5 过 z 委 5 上 绘制 = 二 的 图 形 . 
Plotlx’, [x, ~5, 5|] 


一 Graphics 一 


文本 “一 Graphies ”将 会 出 现在 图 形 的 十 面 (这 可 能 有 点 儿 令 入 讨厌 ), 因此 可 以 在 命令 的 
后 而 加 上 分 号 (;) 去 掉 它 . 
习题 解答 


2.59 ”在 间 一 坐标 系 内 画 出 y= zx，y=2x +140, 一 5 过 + 所 5 的 图 形 . 
解 二 
Flctlfx 2x + 10}, Ix, -5 5}]; <- 注意 这 里 使 用 了 分 号 ， 


-4 -2 
2.60 在 同一 坐标 系 中 男 出 y =x ， y= = 0SzS] 的 图 形 . 
解 EF 


Piot[ fr, x, wl, fx, 0, 11]; 


癌 , 立 门 ,入 总 . 扎 心 .入 1 


2.61 ”在 同一 坐标 系 中 画 出 区 间 - 6r<sr 乏 6r 中 国 数 y= 二 x，y= 一 +，y 二 xsin XZ 的 图 形 . 


SD) 。 Mathematca 合用 指南 


解 。 
Plot[ {x, -x, x Sin[x]|, {x, -6x, 6r} 1; 


2,9 用 户 定义 的 函数 


假设 希望 定义 一 个 单 变量 函数 了, 以 x 为 变 其 ,那么 可 以 书写 为 
f[x_|] =: 
或 者 
f[x_ 1 := 
其 中 左边 的 定义 的 告诉 Mathematica 当 给 定 x 的 值 时 , 如 何 计算 的 值 ,在 定义 中 可 以 使 用 任 
意 合 法 的 Mathematica 运算 ,以 及 引用 内 置 函数 . 
注意 在 定义 的 左边 暴 接 在 x 右面 的 下 划 线 .这 个 符号 相当 重要 , 它 是 告诉 Mathematica 这 
个 变 僻 为 虹 元 的 惟一 办 法 , 所谓 哑 元 就 是 可 以 用 任何 (数值 的 或 符 写 的 ) 表 达 式 普 换 的 变量 . 


例 61 flx_]=x +x; 
£|2] 
12 
二 [2 | 
4x + 8 了 
f[Exp[x|] 
a + EIx 
于 [入 ] 
人 


分 段 函 数 可 以 用 /; 条 件 语 句 进行 定义 . 即 只 要 输入 
f [x _]; = 表达 式 /; 条 件 
就 会 使 当 且 仅 当 条 件 值 为 真 时 ,f[x] 的 值 为 表达 式 ， 
注意 “在 这 种 应 用 中 , 必须 使 用 := 赋值 符号 ， 


、 x, 如 果 过 2， 
例 62 定义 函数 fz)= 8~2z， 邵 果 了 >2. 
f[x_ ] := x /:x 2 
flx |]:= 89-2x/; x»>2 
下 [| 一 起 | 
16 


f|41 


第 二 章 基本 概念 .5 ， 


0 
Plot[f[x], {x, 0, 4}]; 


有 时 候 要 递归 定义 畏 数 , 即 先 给 出 函数 的 一 个 战 多 个 值 , 然 后 依次 用 前 面 的 值 定 久 后 面 的 
什 . 


例 63 Fibonacei 数列 是 通过 遵 归 来 定 交 的 , 即 令 入 (1) = 1，f (2) = 1， 而 对 于 = 之 3， 
fF(n)= 了 (rn 一 2)+ 了 f(n 一 1) ,利用 这 个 定义 计算 第 25 个 Fibonacei 数 是 多 少 . 


f[1] = 1; 

f[2] = 1; 

f[n_] := f[n-21+f[ln-1] 这 里 有 一点 儿 非 常 重要 , 那 就 
f[25] 是 这 里 必须 要 用 : = ,如 果 改 
5025 成 = 看 看 会 出 现 仁 么 情况 . 


你 可 能 会 发 现 为 计算 这 个 数 ,需要 花费 很 长 的 上 时间. 为 了 确认 这 一 点 ,我 们 统计 一 下 这 
个 运算 花费 的 时 和 则 , (你 所 得 的 时 间 串 能 与 这 里 给 出 的 涉 同 ,具体 与 计算 机 速度 有 关 .) 

£f[25]//Timing 

118.18 Second, 750251 

这 里 并 没有 保存 计算 的 中 间 结 果 , 每 次 计算 f[n] 时 都 需要 计算 fF[2 一 1] 与 f[n 一 2], 而 这 
每 一 个 部 需要 计算 f£ 的 一 直下 渤 到 ff[3] 的 每 个 值 .由 于 ff 的 每 个 值 都 是 递归 利用 f[1] 与 f[2] 
的 值 计算 得 出 的 ,因此 为 了 计算 f[25], 需 要 利用 相当 多 的 达 代 .为 了 解决 这 个 问题 ,我 们 可 以 
廿 内存 中 保存 计算 出 来 的 的 每 个 值 ,这 性 在 需要 时 就 可 以 瑟 上 找到 . 


例 64 Et[1] = 1; 
£[2] = 1; 
f[n ] := f[n] = ffln-2]+f[n-1)] 一 这 使 Mathematica 保存 每 个 f[n] 的 值 , 可 以 
输入 ?ff 来 确 社 这 点 . 
f[25]//Timing 


D0, Second, T50251 
两 个 或 多 个 变量 的 蚂 数 也 可 以 用 类 似 方 式 加 以 定 羡 , 其 合法 是 目 明 的 . 


例 65 f[x_ ,vy_]=w+y; 
f[2 3] 
1 
£[3,2] 
17 


例 66 glx_,yY_,z_]=x+iyt+2z; 


，52 。 Mathematica 司 用 指南 


g[2, 3, 4] 
14 
习题 解答 
2.62 把 f(x) 定义 为 多 项 式 rz" + 3z4- 7z2+ 2, 并 计算 f(2). 
解 FE 
f[x ] = x + 3x- 7x+ 2 
2 - T+ x+ x 
£[2] 
54 
下， 如 抹 Tz.0，, 
2.63 enn 如 果 0 之 z+ 去 3, 男 出 Fz) 在 -6 和 zs 委 6 中 的 图 形 . 
18-3z， 如 果 工 >>3， 
解 fF 
自 
白 
生 
总 
f[x | 1， = 其 ; 于 详 


f[z | ,= x Ox 
fftz | : = 18 - 3XA 3 
Plot[f[x], {x, -6, 6}]; 


2.64 设 所 x) 定义 在 区 间 [a, 58] 上 ,了 的 周期 5 -a 的 周期 扩展 就 是 如 下 定义 的 函数 下 ， 
f(x), 如 果 a 志 z 志 b， 

并 一 人 《5 一， 否则 . 

设 当 - 1 所 x 护 1 时 f(x) = x*. 绘制 了 的 周期 为 2 的 周期 扩展 在 =0 到 zx=10 之 


间 的 图 形 . 
0.8 
0.6 
0 .4 
0 .2 
2 4 6 8 10 


F{zr)}= 


2 .03 


2.00 


2.07 


2.08 


第 二 章 基本 要 站 


解 ”4 环 

f[x_]=x; 

extensionlx_| := f[x]/; -1 Rx Rl; 
extension[x_] := extension[x- 2]/;x »>1; 


Plot[extension[x], {x, 0, 10}]; 


定 尽 图 数 f(n}): ff(1)=1， f(2)=2, fF(3)=3, 如 果 ft :党 4， flin)= f(n 一 3 十 
Flr 一 2)+ fin 一 1). 计 算 f{20) 的 值 ， 
解 


Clear[£] 
f[1] = 1; 
£[2] = 2， 
f[3] = 3; 
f[n_} := 
f[20] 
101902 


f[n] = fin - 3] + fln - 2] + f[n -~ 1]; 


定义 一 个 画 数 , 它 表示 点 (zx，7) 到 点 (3,4) 之 间 的 距离 ,并 计算 函数 在 点 《5, -2) 的 值 . 
解 上 本 

Elz_,yY_ ]= v(z-3) +(7-4) ;或 者 

f[x_，Y_]=Sqrt[(z -3)>~2+ (vy -~ 4)-2]; 

f[5,— 21 


2 10 


定义 一 个 函数 ,和 表示 点 《zx1，y1) 与 点 (z2，?2) 之 间 的 距离 , 并 利用 它 计算 点 【2， 
3) 到 点 (8 ,11) 之 间 的 距离 ， 


解 

d[xl_, yl 2 + 1 ; 或 者 
d[lx1_， Yl ， x2 _， Y¥Y2_|= Sqrt[{x2- x1}* 2+[(y2- v1) “2]; 
d[2, 3, 8, 11] 

10 


边 长 学 别 为 a, 6，e 的 三 骨 形 的 面积 是 由 海伦 (Heron) 公 式 给 出 的 : 

Ko= vsts— a)ts—b)(s — ec), 
其 中 = 全 ,把 三 角形 的 面积 表示 成 a，5，c 的 函数 ,并 利用 它 计算 三 角形 边 长 
为 (a) 3，4，S; (b) 5,9，12 的 面积 ， 


解 上 王 
t+ 了， 
2 [J 
k[a ,bb ,cc |= ysls-a}ls-b)ls—- cc); 
k[3, 4, 5] 


， 


”有 二 


一 一 一 一 一 一 


Wlathematica 悚 用 指南 


k[5, 9, 121 
a v26 


2.10 函数 的 运算 


如 果 了 ，g 为 两 个 共有 相同 定义 域 卫 的 函数 ,那么 我 们 就 可 以 和 逐 点 定 兴 它们 的 和 、 兰 、 积 
与 商 : 
(f+g)(tr)= f(xr)+ g(x) 对 了 中 所 有 的 x， 
(Ff-g)(x)= f(z) 一 g(x) 对 D 中 所 有 的 了 ， 
(f(x)= f(r)jgtx) 对 中 所 有 的 >， 
(Frgligz)= Frzr)gtz) 对 卫 中 所 有 满足 gzry 天 人 的 工 . 
如 果 z 在 g 的 定 疼 域内 ,而 g(x) 在 f 的 定义 域内 ,那么 可 以 定义 复合 瑚 数 fog: 
fog(r) = fglr)). 
类 似 地 可 以 定义 图 数 gof. 
下 述 例子 说 明了 如 和 何 构造 这 些 函 数 的 方法 . 


例 67 ft[x_] = vx; 
g[x _|]=x + 2x + 3; 
hi[x_| = f[x] + g[xj 
3+vx+2x+x 
ha[lx_!| = Elx] - glx]) 
-3+yx—2x— Re 
h3[x _]=f£f[xjg[x] 
Vx(3 + 2x+x) 
ha[lx._] = f[x]/glx] 
yx 
3+2xt+x 
hs[x_| = flglx]] 
3+2x+x’ 


h6[x _] = glf[x]] 
3+2vx+x 


两 个 成 者 更 多 曾 数 的 复合 可 以 用 Conpositien 命令 实现 .注意 Composition 是 一 个 是 数 
运算 ,因此 它 的 谷 数 必须 是 函数 ,而 不 是 flix]， 
靖 ” Composition[f1，£2, f3,… |] 构造 隔 数 复合 fl o f2 bo f3…. 


例 68 ffz_] = vx; 
glx_]=x +2x+3; 
hl = Composition[f, gq}; 
hi[x| 
ere 
h2 = composition[g, £]; 
h2 [x | 
3+2yx+x 


第 二 章 基本 慨 含 .55 : 


如 果 要 计算 丽 数 与 目 身 的 复 台 , 那么 当然 可 以 用 Corposition |[f，f]， Composi- 


tion[E， 生 ，f] ,等 等 .而 蝎 方便 的 工具 是 Nest 与 NestList. 


图。 Nest[f， 表 达 式 ，n] 重复 应 用 f 到 表达 式 上 nn 次 . 
国 ”NestList[f， 表 达 式 , n] 重复 应 用 上 到 表达 式 上 nm 次 ,并 返回 一 个 由 所 有 中 间 计 算 结 


傈 组 成 到 表 . (列表 在 第 三 章 中 详 加 讨论 .，) 


例 69 f[x ] = x， 


.09 


Nest[f, x, 51 

ye 

NestList{f, x, 5| 

32 | 


也 
{x, KX XX, x 


已 wie 
Nest[f, 2x + 3, 5] 
(3 + 2x) 

NestList|f, 2x + 3, 5| 


13 + 2x, (3 + 2x)’, {3 + 2x), (3+2x), (3+2x), (3+ 2x)Y| 
习题 解答 


如 果 f(x} 二 sin T+2 cos rpg(x)=2 sinx ~3 cosr， 构 道 落 数 { 了 + g}){zx)， 
(fFf-g)(x), (f(r) 和 和 (f/g)(x), 并 计算 它们 在 x/2 的 值 ， 
解 # 汪 


f[x | = Sin[lx] + 2 toslx]; 
gl[x_] = 2 Sinlx] - 3 Cos[x]; 
hi[x._] = f[x] + glxl 

— Coslx| + 3 Sin|*] 

h2[x_] = f[x] - glx] 

5 Cos[x|] — Sin[x| 


h3[x_] = flxjg[xj 
{2 Cos[xj + Sin[x])( -3 Coslx] + 2 Sin[x|) 
nafx_|] = f[x]/g[x)] 


2 Cos[ x|+ Sin|x| 
~ 3Cos[x| + 2Sin[x] 


ni[ x/21 
3 

h2|l rn/2 | 
-1 

h3[ x/2| 
之 
hdLmr2| 


二 
2 


令 F(z) = v1+xr, 计 算 (fo fofofof)(r). 
解 FF 


f[x ]= yi+x; 


a i “ 


2,11 


Miathematica 全 用 指南 
Nest[f, x, 5] 


= 
l+ yl1+ yl+ yl1+ yl+ix 


令 f(r) = 二 一 .把 /重复 应 用 到 x 上 五 次 ,并 显示 每 次 的 结果 .然后 把 了 应 用 到 x =1 
上 20 次 ,得 到 了 什么 结果 ? 
解 EF 
flx = 
NegstList[f, x, S| 
li 1+ | 1 + 1 了 二 ] 
二 了 十 ] 1 
1 + 去 ] + 1 


] 土 三 2228 和 妆 3 B144 


2: 3’ 5 8’ 13’ 21’ 34’ 55’ 89，144，233， 
233 377 610 987 1597 2584 4181 6765 10946 


377’ 610’ 987° 1597’? 2584’ A181’ 6765’ 10946” 177111? 

竺 /A 

1., 0.5, 0.666667, 0.6, 0.625, 0.615385, 0,619048, 0,617647, 
0.618182, 0.617978, 0.618056, 0.618026, 0.618037， 0.618033， 
0.618034， 0,618034， 0.618034, 0.618034, 0.618034, 0.618034, 
0.618034| 


得 到 的 数 均 在 接近 0.618034 的 近似 值 的 范围 内 . 


如 果 x 为 /5 的 近似 值 ,那么 可 以 证 明 广 | x + | 为 更 好 的 近似 值 . (这 是 牛顿 方法 的 一 
个 特殊 情形 .) 利 用 NestList 观察 从 x = 100 开 既 而 得 到 的 /3 的 前 10 个 近似 人 


MestList[f, i100, 10] //¥ 


i100., 50.015, 25.0375, 12.5787, 6.40858, 3.43835, 2.15543, 1.77363, 1.73254, 
1.73205, 1.732051 


模块 


仕 屿 省 情况 下, Mathematica 假定 所 有 的 对 锭 (例如 变量 } 者 是 全 局 性 的 .这 号 是 说 , 例如 ， 
如 果 你 定义 了 变 莽 x, 其 值 为 3, 那么 x 的 值 一 直 为 3 除非 你 进行 了 修改 .与 之 相反 , 局 部 对 象 
只 有 在 一 组 特定 指令 内 才 有 一 定 的 作用 . 

通过 模块 可 以 定义 局 部 变量 ,局 部 变量 只 在 模块 内 有 定义 ,在 模 鼎 外 面 , 对 象 可 能 就 没有 
定义 ,或 者 县 有 完全 不 同 的 人 . 


第 二 章 藉 本 概念 


CC 一 一 一 


自 ”Module[r [变量 1， 变 最 2,…},， 主体] 定义 拥有 局 部 变量 变量 1, 变量 2,… 的 模块 ， 
血 Module[ | 变量 1 = 值 1， 变量 2 = 值 2,…j,， 主体 ] 定 艾 拥有 局 部 变量 变量 1, 变 其 
2,… 的 模块 ,并 且 这 里 每 个 变量 具有 指定 的 初始 信 


例 70 工 =3; < 全 局 变量 x 置 为 3. 
Module[ {x = 81, x + 1] < 定义 的 模块 内 局 部 变量 x 初始 值 为 8 
9 -x 被 增加 . 
x 一 调用 的 是 全 局 变 晶 x. 
3 < 返回 的 是 x 的 原始 值 . 


有 了 时候 把 几 条 命令 组 织 成 一 个 整体 ,从 而 可 以 当 作 一 个 组 来 执行 ,这 在 实 际 中 是 非常 有 用 
的 .特别 在 复 嫉 络 构 中 包 作 循环 及 尤其 如 此 .在 主体 中 可 以 包含 几 茶 命令 ,只 要 命令 之 司 用 分 
写 分 开 就 可 以 了 . 
例 71 Module| {x = 1, YY¥ = 之 | =X+337= y+ 4: Print [x vy || 
24 一 工 号 y 分别 具有 切 始 但 1 与 2 然后 xz 增加 3,w 增加 4, 再 把 它们 莱 起 米 . 
有 时 在 定义 函数 时 , 把 它 的 恒 设 计 为 一 个 模块 , 在 应 用 时 就 非常 方便 . 当 处 理 的 函数 的 定义 
相当 复杂 时 , 这 可 以 使 我 们 其 有 相当 大 的 弹性 , 当 用 这 种 方式 定义 函数 时 , 必须 用 延 时 赋值 符号 


例 72 下 面 的 语句 定 尽 了 阶乘 落 数 ,这 里 假定 x0 的 值 为 非 负 整数 ,变量 fact 与 x 分 别 被 初始 
化 为 1 和 x0, 都 是 局 部 变量 , 因此 与 程序 中 其 他 地 方 的 同名 变 其 不 会 发 生 冲 突 . 这 里 
x0 为 三 变 基 . 
f[x0 ] ;= Module [{fact = 1, x = x0|, 

While[x>1, fact = x fact; x = x -1]; 
Print[fact]] 
£1[0] 
1 
E[5j 
120 
EL10] 
3628800 


为 了 更 清楚 地 了 解 模 块 的 工作 机 理 ,我 们 考虑 下 面 这 个 例子 ,虽然 同样 的 模块 被 执行 了 三 
次 ,变量 履 是 x, 但 它 实 际 上 被 赋 于 二 个 不 辣 的 局 部 名 称 .上 是 由 寺 这 种 聪明 的 屏 项 措施 , 使 得 
三 个 变量 是 相互 独立 的 ,从 而 不 会 与 全 局 变量 xx 冲突. 


例 73 x= 3 
了 
Module[ [x}, Erint[x]] 
区 与 
Module[ {xl，Brint[x]] 


,6 上 是 由 二 个 值 被 赋予 相同 的 内 
部 名称, 蕊 们 才 不 会 发 生 冲 突 . 
Module[ {x}, Print[x]] 一 . 


名 了 


于 


3 


- 7 + 


2.73 


2.75 
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一 一 -一 一 


习题 解答 


编写 -个 模块 , 它 肥 一 个 整数 ,上 息 回 它 的 所 有 的 内 了 于. 

解 E 

factorlist[x0 |] := 

Module[ {x = 1|, While[x <Ex0, If[Mod[x0, x] == 0, Print[x}]; x+ + |]] 


factorlist[1 | factorlist| 90 | 
1 1 
2 
factorlist[10] 3 
] 5 
之 6 
9 9 
10 10 
15 
factorlist[11| 18 
1 3 
11 45 
90 


确定 一 个 素数 在 索 数 序列 中 所 处 位 置 的 比较 粗糙 的 方法 就 是 次 看 由 所 志 素 数 构 成 的 列 
表 , 和 由 到 遇 到 或 超过 所 考虑 的 数 为 止 , 从 市 可 以 确定 它 的 位 四 . 如 果 指 定数 不 在 列表 中 ， 
就 知道 它 不 是 素数 ,构造 一 个 模块 , 利用 上 述 方法 来 判断 一 个 数 是 否 为 素数 , 如 果 尼 第 
素数 ,给 出 它 的 位 置 ;如 果 它 不 是 素数 ,返回 - “条 信息 说 明 它 不 是 素 煞 
解 FF 
pos[x0 | := Module[ {x = i1, prml, 
pri = False; 
While[ Prime[x]<Sx0 SE Not[prm], If[Prime[x] == x0, prn = Truej;i x+ +|]; 
If[prm, Frint[x ~ 1], Print[ “Not a Prime”]]] 
pos[1|] 
Not a Prime 
pos[2] 
1 
pos[ 3] 
2 
posL 101] 
26 
pos[1001 |] 


Not a FIr1ne 


在 数学 中 有 一 个 著名 的 猜想, 那 就 是 ;如果 从 正 整数 x 开始 , 当 半 为 偶数 时 ,就 用 n/2 
代替 它 , 当 x 为 奇数 时 ,就 用 32+1 代 蔡 它 , 按 这 种 方式 进行 多 次 迁 代 ,那么 名 会 得 到 
1.( 这 个 猜测 还 没有 被 让 明 或 省 定 . ) 构 造 一 个 模块 ,模拟 上 述 进 代 过 程 ， 


一 一 -一 一 -一 一 一 一 -一 


解 ”E 生 
我 们 首先 息 文 -- 个 国 数 successor, 它 定义 一 次 选民 步 又 . 
successorln_| := If[EvenQ[n], m2, 3n + 1] 


接 下 来 ,给 出 模块 allvaluves, 它 给 出 从 nn 开始 的 所 有 上 后续 数 的 清单 . 
allvalues[n _| := Module[ |n = n!, While[nm #1, n = successor[m]; Print[m11] 
allvalues[€ | 


由 于 当 # 很 太 时 ,这 个 清单 可 能 变 得 很 长 ,而 我 们 只 对 敢 后 的 结果 以 及 得 到 这 个 结 叮 
的 述 代 次 数 感 兴趣 , 轩 此 下 面 这 个 模块 可 能 更 恰当 . 
finalvalue[n | := 
Nodule[ jm = n, k = 0|, While[wmw! = 1, m = successor[m]; k+ + |]; 
Print[ "final value = “, m, “， 亲 iterations = “，F]] 
finalvalue 列 出 处 班 的 最 终结 果 , 以 及 得 到 这 个 结果 的 迁 代 次 数 . 
finalvaluel 6] 
finalvalue = 1， 闪 iterations = 台 
finalvalue| 1001 
finalvalue = 1, HH iterations = 25 
finalvaluel 1000] 


fina_valus = 1， 间 iterations = 11 


3.1 简介 


所 谓 充 表 , 就 是 由 一 组 其 他 对 象 构成 的 对 象 . 在 阅读 本 章 时 , 你 就 会 发 现 列 表 有 相当 三 证 
的 应 月 .因此 Mathematica 提供 了 一 天 类 列 改 操作 人 荫 令 ， 

包含 在 询 表 内 的 对 象 是 用 大 括号 | | 包围 起 来 的 .另外 ,List 命令 也 可 以 定义 一 个 列表 . 

加 ”List[ 元 京 ], 其 中 元 素 就 是 用 逗 导 分 开 的 各 个 列表 对 象 , 这 杂 命 令 等 价 于 { 元 案 上 


例 1 11,， 2，3，4! 为 数 的 列表 .List[a，hb，c,， 中 为 未 定义 符号 的 列表 . 
List[a，Db，c，d】 


|a, b, ©, di! < Listfa，b,，c, d] 等 价 上 la, b, c,d!. 


可 以 赋 给 列表 一 个 符号 名 称 , 从 而 方便 以 后 对 它 进 行 引用 .对 列表 进行 的 操作 就 是 对 列表 
中 每 个 元 素 进行 的 操作 . 


例 2 1st = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10| 
i1l, 2, 3, 4, 5, 6, 7, 8, 9, 10} 


i/1st 
| 1 1 111111 之 所 议 使 用 符 导 1st, 而 不 用 
A ， 二 iathe- 
Ee lst, 员 是 为 了 加 免 athe 
matica 罕 导 4ist 溃 安 . 
lst: 
11, 4, 9, 16, 25, 36, 49, 64, 81, 100} 
1st: 


|1,4,9,16,25,36,49,64,81,190: 
v1st 
|1,v2, v3, 2, 5, 6.7, 22,3, v10| 
如 果 有 两 不 或 多 个 列表 具有 同样 数目 的 无 素 , 那么 可 以 利用 标准 运算 创建 新 列表 . 


例 3 1lstt = |1, 2, 3, 4, 5§}; 
lst2 = [2, 3, 2, 3, 2}; 
lsti + lst2 
13, 5, 5, 7, 71| 
lsti # 1st2 
|2, 6, 6, 12, 10| 
lst/lst2 


lst1'*™ 
11, 8, 9, 64,，25| 


习题 解答 


3.1 构造 列表 ,由 从 1 到 10 的 整数 的 阶 飞 组 成 . 


解 “ 星 
lst = [1, 2, 3, 4, 5, 6, 了， 如，3，101， 
lst! 


|1, 2, 6, 24, 120,720, 5040, 4032)，362880，3628800| 


3,2 构造 一 个 列表 , 由 以 2 为 底 、 以 前 10 个 上 整数 为 指数 的 窜 组 成 . 
村 上 8 


1st = |1, 2, 3, 4, 5, 6, 7, 8, 9, 10|]; 
15t 


{2, 4, 8, 16, 32, 64, 1298, 256, 512, 1024: 


3,3 和 槐 舍 一 个 列表 ,其 元 素 分 别 是 前 五 个 正 整 数 的 平方 与 立方 和 . 
种 上 
lst = {1, 2, 3, 4, 5|; 
1st* + 18 或 lst"2 + lst"3 
12, 12, 36, 80,1i501 


3.4 定义 lstl = {1, 3，5, 7, 9 和 1st2= 12，4，6，8，10| . 构造 一 个 列表 , 它 的 五 个 元 素 
束 是 这 两 个 列表 的 对 应 元 素 的 飞 积 . 
解 # 
1st1 = 11, 3, 5, 7, 9}; 
1st2 = {2, 4, 6, 8, 10}; 
lst1 # lst2 
|2, 12, 30, 56, 30| 


3.2 生成 列表 


最 贡 见 的 列 和 未 就 是 等 臣 数 构 成 的 列表 .利用 Range 命令 可 方便 地 构造 这 种 列表 .在 下 面 的 
西法 描述 中 ,m,n 和 吕 不 必 为 整数 值 , 也 可 以 是 俩 慎 . 

国 。 Range[n]l 生成 出 前 个 相 邻 整数 组 成 的 列表 ， 

加 ”Range[m, n] 生成 由 从 m 到 nn 的 相 邻 整数 组 成 的 列表 . 

加 ”Range[m,， n,，d] 生成 由 从 am 到 mn 间隔 为 gq 的 上 束 数组 成 的 列表 ， 


例 4 Range[10] 
|1, 2, 3, 4, 5, 6, 7, 8, 9, 10| 
Range[$s, 10] 
|5, 6, 7, 8, 9, 10| 
Range[25, 5, — 2] 
125, 23, 21, 19, 17, 15, 13, 11, 9, 7, 5} 
Range[1/3, 1, 1/12} 
1 1 7 2*335 1 1 
i3*712" 2°12* 3"46’12’ 
Range[1, 2, ,11 
11, 1.1, 1.2, 1.3, 1.4, 1.5, 1.6, 1.7, 1.8, 1.9, 2.| 
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具有 齐 复 亲 结 构 的 列表 可 以 用 Table 和 Array 傅 令 创建 ,这 耳 荣 命令 具有 包 种 不 同 的 形 
式 . 
Tablel 表 达 式 ，|nj] 生成 一 个 列表 , 由 表达 式 的 nn 份 撕 由 组 或 . 
Table[ 束 达 式 ，{k，n1] 生成 一 个 列表 ,由 表达 式 在 kk 从 1 变化 到 nn 时 的 信 纪 成. 
zable[ 表 达 式 ，|z，m ojj] 生成 一 个 列表 ,由 表达 式 在 kk 从 变化 到 nn 时 的 信和 组 成 . 


Yable[ 表 达 式 ，ik,， mm dj] 生成 -个 列表 , 由 表达 式 在 从 mm 变化 到 nn 步 长 为 d 时 
的 值 组 成 ， 


例 5 Table[x, 1101] 

ix, 其 ， 焉 ， 其 其， 区 让 区 ， 下， XK 
Table[k:, {k, 10}] 
11, 4, 9, 16, 25, 36, 49, 64, 81, 1001 
Table[1/k, Ik, 5, 131] 


[1 1 1 1 1 1 1 1 1 


CC 


Table[yk, {k, 5, 13, 2)] 


I 5 ,v7, 3， v1l 和 v13| 


奋 ”Array|f，n] 生成 一 个 列表 , 由 n 个 值 ff1],tt2],…,ft[n] 组 成 . 
时 hrrayif,，n, rr] 生成 -个 列表 ,由 :从 r 开始 的 5 个 值 站 i 组 成 . 


例 6 flx ] = x +x+1: 
Array[f, 10] 
|3, 7, 13, 21, 31, 43, 57, 73, 91, 11; 
Array[f, 10, 0] 
i1. 3, 7, 13, 21, 31, 43,57, 73, 91| 一 第 一 个 元 素 是 f101]. 


版 营 列 表 就 是 在 列表 中 还 包含 其 他 的 列表 .例如 ， 
[1],， 2,3, 4:，j2，3, 4, 5|，13,，4, 5，61| 
就 是 由 二 个 元 素 组 成 的 租 套 列表 , 其 中 每 个 元 素 都 是 由 四 个 整数 构成 的 列表 ,可 以 用 Table 和 
Array 命令 生成 嵌 套 列表 . 
旭 Table[ 表 达 式 ，[i, mi ni}，1j, nj, nj)] 生成 一 个 嵌 套 列表 , 它 由 表达 起 在 j 队 Mm, 
变色 j,i 从 mm, 变 到 n, 时 的 信和 组 成 . 
加 ARrray[f，im， n|] 生成 一 个 散 套 列表 , 它 是 由 nn 个 元 素 构成 的 数组 ,而 其 中 的 每 个 元 
聚 部 是 由 i 个 元 素 枸 成 的 数组 ,它们 的 值 为 ffi, jj]; 这 里 j 从 1 变 到 n,i 从 1 变 到 
my 其 中 下 为 二 元 函数 . 
由 Array[f，|m, nj， {r,s}] 生成 一 个 诬 套 列表 , 它 是 由 mm 个 元 素 构 成 的 数组 ,而 其 中 每 
个 元 素 是 白人 个 元 豆 构 成 的 数组 . 其 中 第 一 个 了 列表 的 第 -一 个 邢 素 是 f[z，s]. 
在 上 面 描述 的 合法 中 , 最 右 迪 的 指标 变化 得 最 由 .对 应 于 这 个 指标 的 列表 是 最 内 部 的 列 
表 . 所 有 的 指标 都 有 单位 增长 . 
工 面 给 出 的 语法 描述 ,都 可 以 自然 扩展 为 有 更 多 层次 的 情形 . 


例 7 Table[i + j, {fi, 1, 3}, {ij, 1, 51] 
i 12， 3， 4， 5S, 6|,， | 3， 和 4， 2, 6， 了 |， | 4， 5， 和 ， 了 由 | | 
对 应 于 守 的 矢 个 什 , 生 成 列表 jit+1， -2，i+3,， ++4， ii+5 这样 得 到 的 二 个 列表 被 


第 三 章 列 到 
包 几 在 最 外 层 的 大 括号 内 . 
Table[i + J，{I，1，5|，{13，1，31 
i 12, 3, 4|, 13, 4, 5 , }4, 5, 6|, ;5, 6, 7!, 16, 7?, 8|| 


例 8 glx., yy_]=x+ 3y; 
Array[lg, 13, 411 


1 id, 7, 10, 131, |7, 10, 13, 16}, 112, 15, 18, 21: | 
Array[g, |4，31]] 


{4,7 10;, 17, 10, 13|, 112, 15, 18;, 119, 22, 251!| 
Array[lg, (4, 3|}, {10, 01] 


110, 3, 61, j1, 4, 7!, 14, 7, 10|, |9, 12, 1511 


有 了 时候 构 道 字母 种 其 他 符号 的 列表 是 非常 方便 的 . 
| Charactears[ 字 符 串 ] 生成 出 字 符 串 中 字符 组 成 的 列表 . 


加 ”CharacterRange[" 字 符 1”, "字符 2 好] 生成 从 字符 1 到 字符 2 的 所 有 字符 构成 的 列 
表 , 这 里 的 顺序 是 基于 标准 (美式 英语 字母 表 )ASCIE 码 的 . 


例 9 Characters[ "Mathematica’ | 


iM, a, t, h, ©， m, 所 t, 1， Cc, a| 


例 10 CharacterRange[’S, “6 | 
ia, b, c, d, et 


CharacterRange[~ ~ “~"] 
1 
2, 3, 4, 5, 和 6， 了，98，9，:，j 所 ，=，>，? BB, CC, Db, 
E, F, 与 


| 了 H, 工 ， 可 ， K, L, M, N, v, FE, 人 0， R, SD， 1, U, VY, LR 其， 
Y, 2 | ， \ + ,， “一 
], m, Nn, 0, Pp, 9, rT, 8, £, U, VY, WwW, xX, TY，z，|，|，| ,一 | 


虽然 Characters 和 CharacterRange 的 输出 好 像 是 单个 字符 ,但 实际 上 它们 是 长 度 为 1 
的 宇 本 上 串 . 控 上 照 Mathematica 的 约定 ,这 里 并 不 显示 双 引 号 . 


， 已， b, 人 d, = f, ， h, 1 ]， k, 


例 11 digits = CharacterRange[*0","9"] 
10, 1, 2, 3, 4, 5, 6, 7, 8, 9| 


<* -这些 不 是 数字 , 而 是 长 雇 为 1 的 字符 囊 . 
FullFornm[ digits] 


List["0, 1, 2,3, 4,°5, 6, 7,8,"9| 
习题 解答 


3.5 构造 一 个 刻 表 , 由 所 有 为 了 的 倍数 ,但 不 超过 100 的 正 整数 组 成 . 
条 ”县 


RangeL7，100，7] 或 者 Table[7k,，|k,，1,，14}] 
17, 14, 21, 28, 35, 42, 49, 56, §3, 70, 77, 84, 91, 981! 


3.6 构 半 -个 列表 ,由 前 10 个 素数 组 成 . 


， 。 


“4 Vathematica 于 用 指南 


解 8 

Table[ Prime[k], {k, 1, 101] 

i2, 3, 5, 7, 11, 13, 17, 19, 23, 29! 
解 EgE 

Array| Frime, 10| 

12, 3, 5, 7, 11, 13, 17, 19, 23, 29| 
解 BEE 

Prinel Rangdel 101] 

|2, 3, 5, 7, 11, 13, 17, 19, 23,29| 


3.7 枸 反 下 个 列表 ,由 前 10 个 伪 数 的 倒数 组 成 . 
解 


Tabie[1/X，ik，2，20,2|] 或 者 17Range[2，20，2] 


11111112 411 1 1 
| 一 一 -一 -一 -一 一 -一 一 
,214'6'8'10 12’14'16' 18'20| 


3.8 ”构造 一 个 有 五 个 对 象 的 列表 , 其 中 每 个 对 象 是 由 六 个 整数 组 成 的 列表 . 第 -一 个 人 点 是 由 
2 的 前 6 个 倍数 组 成 ,第 二 个 是 3 的 倍数 , 芝 二 个 是 4 的 倍数 , 依 此 类 推 . 
解 ”Ff 后 
Table[i *j, |i, 2, 6}, {j, 1, 61}] 


i 12, 4, 6, 8, 10, 12;, |3, 6, 9, 12, 15, 18!, 14, 8, 12, 16, 20, 24|, 15, 10, “5, 
20, 25, 30!, |6, 12, 18, 24, 30, 36!i 


3.9 令 ptr) = x 一 8x 二 10. 计算 p(xr) 在 x = 1,2,3,…,10 时 的 值 . 
解 ”E 
plx_] = x - 8x + 10; 
Rrray[p,， 10] 或 党 p[Range[10]] 
13,， 一 2,， -5, -6, 5, — 2, 3, 10, 19,， 30| 


3.3 列表 的 操作 


加 ”Length[1st] 给 出 1st 的 长 度 , 即 在 lst 中 元 素 的 数目 . 
枚 ”First[ist] 给 山 1st 中 位 于 弟 一 个 位 定 上 的 元 素 . 
国 ”Last[1lst] 篇 让 1st 中 位 十 眠 后 位 置 上 的 元 素 ， 


例 12 1st = |a，b，c，d e, f, g}; 
Lenogth| lst | 
- 
First| lst | 
局 
Last| 1st | 
可 


函数 Part 返回 列表 中 的 多 个 琵 束 . 


第 = 章 州 下 


GCG 一 一 - 


一 Part[1st，k] 或 lst[[k]] 退回 1st 中 的 第 k 个 元 素 . 
国 ”Part[1lst，-k] 或 lst[[ ~k]] 返回 lst 中 倒数 第 k 个 元 紊 . 
Part[1st，1] 与 Bart[1st，- 1] 分 别 等 价 二 First[1lst] 与 Last[ 1st]， 


例 13 1st = {a, b, c, d, e, £f, g}; 

Part[1lst，1] 或 者 lst[[1]] 

各 

Bart[1at，3] 眠 着 lst[[3|]] 

心 

Part[lst, -3| 蛤 者 lst[[ -3]] 
忆 

Part[lst，-1] 或 者 lst.[ -1]] 
村 


例 14 ist = iia, b, c, di, ie, f, g, h}, {i, j, k, 1)}; 
First[ 1st | 
1a, b, ¢, di 
Last [1st | 
1i, 3, k, 1! 
Jst[[2Jj 
ie, £, gq, hl 


由 村 1st[12]] 本 上 身 就 是 一 个 列表 ,因此 它 的 第 三 个 元 素 就 可 以 用 1st[[2j]i[3]]( 第 2 个 
表 的 第 3 个 元 素 ) 得 到 .为 了 方便 想见, 这 也 可 以 表示 为 lst[12,311 或 者 Part[1st,，2, 31. 显 


然 还 可 以 用 ParttPart[t 1st，2]，3], 但 这 实在 太 不 方便 了 . 


例 45 1st = |a，b，c， d}, le, £f, g, h}, {i, 3, k, 1}}; 
ist[[211[[3]] 
S| 
lst[l[2, 3]] 
g 
Part|lst, 2, 3] 
9 
Part[Part[1lst, 2|, 3] 
y 


有 几 种 不 同 的 方法 修改 列表 .在 下 面 的 语法 中 , 1st 为 尾 意 列 表 

Rest[1st] 返回 删除 lst 中 第 一 个 对 象 后 的 结果 ， 

Take[1st，a] 返回 一 个 列表 ,由 lst 的 前 ma 个 对 象 组 成 . 

Take[1st，{nj ] 返回 一 个 列表 ,由 lst 的 第 mn 个 对 象 组 成 . 

Takef lst， 一 ma] 返回 一 个 列表 ,由 1st 的 后 nn 个 对 象 组 成 . 

Take[1st，| - nj] 返回 一 个 列表 ,由 lst 的 倒数 第 n 个 对 象 组 成 . 

Take[ lst，inm,，n}] 返回 一 个 列表 ,由 1st 中 从 第 nn 个 到 第 n 个 对象 和 组 成 ， 


例 16 1st = [a, b, c, d, e, f, 9g); 


， “ 
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Rest| lst | 

|b, ©, d, e, f, g| 
Take[ lst, 31 

Ila, b, | 

Take[ lst, — 31 
:ef, go} 

Take[ lst, |3}] 
{ei 

Take[lst, | -31] 
ie: 

Take[ lst, |2, 5}] 
‘ib, c, d, el 


可 以 用 Delete 命令 从 列表 中 删除 元 率 ， 
国 ”Delete[1st, n] 玫 除 在 lst 中 第 n 个 位 置 上 的 元 素 ， 
国 “Delete[ lst，- nj] 删除 让 1st 中 倒 狂 第 n 个 位 置 上 的 元 素 ， 


例 17 lst = |a，b，c，d e, f, g}; 
Delete[ lst, 3| 
a, b, d, e, f, g: 
Deletel lst, -3| 
1a, b, ¢, d, f, gi 


相 比 起 来 ,Drop 函数 就 富有 弹性 . 

Drop[ 1st，n] 挨 回 1st, 其 前 二 个 对 象 被 删除 . 

Drop[1st，-n] 运 回 1st, 其 后 5 个 对 象 被 删除 ， 

prop[1st，fnj] 返回 1st, 其 第 nn 个 对 象 家 删除 . 

Drop[1st，| - ni] 返回 lst, 其 倒数 第 n 个 对 象 被 期 阶 ， 

Dropl1lst，{fm, n|] 返回 1st, 其 从 第 个 到 第 n 个 对 象 被 山 除 ， 

注意 Drop[1lst，fanl] 等 价 于 Delete [1lst,， nj, Drop [lst， | -ni 等 价 于 
Delete[lst, -~ nj]. 


例 18 lst =ia, b, co, d, e, £f, g}; 

Drop[ lst, 2| 

Ie, d, e, f£, gi 
prop[lst, -2)] 
la, b, ¢, d, ei 
Drop[l lst, 121}] 
[a, c, d, e, f, g| 
DropLlst, {— 2}] 
ia, b, c, d, e, 9| 
Drop[lst, {2, 4}] 
ila, e, f, gl 


一 = 一 一 -一 


在 计 多 列 改 操作 可 以 门 列 表 中 操 人 元 喜 . 

国 。 append[lst，xj] 把 x 林 入 到 最 后 一 个 元 条 的 石 边 ,并 返回 1st. 
国 。 Prcepend[1st，x] 把 x 丘 人 到 第 一 个 元 素 的 赫 边 ,并 返回 1st. 

国 ”Insert[llst, x, n|] 把 x 持 六 到 第 mn 个 己 置 上 ， 并 取 回 1st. 

国 。 Insert[L1st，x,， 一 nn] 把 x 插 入 钊 倒 数 第 nm 个 位 置 上 ,并 有 退回 1st. 


例 19 1lst = |1，2，3，4，5，6，7，8，9，10|; 
Append[ lst，F] 
1:1, 2, 3, 4, 5, 6, 7, 8, 9, 10, xt! 
Prepend[ lst, x| 
[x, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10| 
Insert[lst, x, 4| 
|1, 2, 3, Xx, 4, 5, 6, 7, 8, 9, 101 
Insert[1lst, x, -4] 
1i, 2,3, 4, 5, 6, 7, x, B, 9, 10| 


可 以 用 ReplacePart 把 列表 中 的 对 象 用 其 他 的 对 象 奉 换 . 
蜀 RepLacePpatrt[1st，F， nj] 把 1st 中 第 n 个 位 置 上 的 对 售 用 x 替换 ， 
加 ”ReplacePart[1lst,，x，-n] 北 1st 中 全 数 第 n 个 位 置 上 的 对 象 用 x 赫 控 . 


例 20 1st = {1, 2, 3, 4, 5, 6, 7, 8 9, 10}. 
ReplacePart[lst, x, 7 | 
11, 2, 3, 4, $5, 6, x, 8, 9, 10| 
ReplacePart[1lst, x, —7| 
‘1, 2, 3, x, 5, 6, 7, 8, 9, 10t 


可 以 用 Sert 和 Reverse 命令 明 排 列表 . 

而 ”SortL1st] 按 升 序 对 列表 1st 中 的 直率 进 行 排序 .其 中 实数 是 按 它们 的 数值 大 小 排序 
的 .字母 按 字 母 表 有 顺序 进行 ,其 中 大 写字 母 排 在 小 写字 母后 面 . 

国 “Reverseaf lst] 把 1st 中 的 下 素 顺 字 正 倒 过 来 . 


例 21 1lst = {1, 5, ~ 3, 0, 2.5]; 
Sort| lst| 
| —3, 0, 1, 2.5, 5| 


例 22 1st = |z, x, ¥, w, X, y, Z, W|; 
Sort[ 1Lst |] 
1 亲 ， 岗 ， 磋 ， 习 ， YY, YY, 22| 


例 23 lst = la, b, ¢, d, e, f, g}; 
Reverse[ 1Lst ] 


ig, f, e, d, c, b, ai 


利用 RotateLeft 和 RotateRight, 9 以 循环 变换 列表 中 元 素 的 位 置 . 
加 ”RotateLeft[1lst] 1st 上 i 每 个 元 束 都 依次 向 上 堪 移动 一 个 位 置 ,而 最 左边 的 元 素 移 刘 列 
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-一 


表 的 最 右边 . 
国 ”RotateLeft[1st, n] 1st 中 冬 个 元 素 部 依 深 和 问 正 移动 n 个 位置 ,而 最 左边 nn 个 元 素 凌 
同样 的 机 对 位 辕 移 到 列表 的 最 石 边 . 如 果 为 代数 , 则 I9 右 御 环 ， 
图 RotateRight![ 1st | 1st 中 每 个 元 素 都 依次 同 右 移 动 一 个 位 置 , 而 最 右边 的 元 系 移 人 基 
列表 的 最 左边 . 
图 ”RotateRight[1st, n] lst 中 每 个 元 素 者 依次 向 右 移动 n 个 位 置 , 击 最 右边 nn 个 元 来 
控 同 样 的 坦 对 位 奸 移 到 列表 的 最 左边 . 如果 nn 为 信 数 , 则 同 正 征 环 . 


例 24 1st = {1, 2, 3, &, 5, 6, 7, 8, 9, 10}; 
RotateLeft+[1st] 
12，3，4，5，6, 7,，8, 39，10, 1 
RotateLeft! lst, 3] 

:4, 5, 6, 7, 8, 9, 10, 1, 2, 3| 
RotateLeft[1lst, -3] 

18, 9, 10, 1, 2, 3, 4, 5, 6, 7! 
RotateRight[ 1st | 

110, 1, 2, 3, 4, 5, 6, 7, 8, 9| 
RotateRight[1st, 3] 

18, 9, 10, 1, 2, 3, 4, 5, 6, ?7! 
RotateRight[lst, — 3] 

|4, 5, 6, 7, 8, 9, 10, 1, 2, 3| 


列表 可 以 用 Join 命令 组 合 在 一 起 . 

加 ”Join[1sti，lst2] 把 两 个 列表 1st1, 1st2 组 合成 一 个 列表 , 新 列表 由 1stl 和 1st2 中 
时 元 素 组 成 . 

Join 不 会 去 掉 重 复元 素 . 然而 可 以 利用 Union 命令 方便 地 消去 重复 元 素 ( 见 第 $.4 节 ). 

Join 命令 可 以 接 自然 的 方法 推广 到 组 合 多 个 列表 的 情形 . 


例 25 1lstl = |1, 2, 3, 4, 51; 
lst2 = |3, 4&, 5, 6, 7 1， 
Join| lst1, lst2 | 
1i1, 2, 3, 4, 5,，3, 4, 5, 6§, 7| 


诬 套 列表 是 很 常见 的 , 它 可 以 共有 相当 复 桨 的 结构 ,有 风 策 Mathematica 爷 令 可 以 帮助 你 
理解 与 操作 识 赛 列表 . 
出 ”Depth[ist] 返回 在 列表 结 梅 中 层次 数 如 1 之 后 的 结果 ， 
国 Level[ 1st，| levelspecj ] 返回 一 个 列表 , 它 由 lst 中 levelspec 所 指定 层次 上 的 元 
系 构 成 . 
国 ”Level[1lst，levelspec] 运 回 一 个 列表 , 蕊 由 1st 中 在 levelspec 所 指定 层 识 或 者 革 
该 层次 以 下 的 多 率 构成 . 


例 26 ist = i1, {2, |3, 4, 5)}}; 
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bepth[ lst] 

4 

Level[ lst, 111]] 

11, 12,13,，4, 5t1| 

Level[ lst, 12|] 

12，13，，51| 

Level[ lst, 13|] 

13,，4,，5! 

Level| lst，3 

并，2，3，4，5，13，4， 王 |，422，}13，4，5| | 


列 


ll 


4 一 1 = 3. 这 个 结果 说 明 1st 中 包 会 列 
表 , 而 内 部 列表 中 还 包含 列表 . 要 注意 的 
是 Depth 返回 的 结果 品 比 列表 中 实际 居 
数 儿 一 ,这 是 由 于 Mathematica 处 理 列表 
的 技术 上 的 原因 导 朗 的 在 甘 前 情形 上 ， 
只 要 记 住 层 数 比 Depth 小 1 就 可 以 了 . 


面 ”Flatten[1st] 把 构 套 列表 转化 为 由 包含 在 1st 最 内 层 的 元 隶 徇 成 的 简单 列表 . 


Flatten[1lst, nj 对 嵌 套 列表 进行 5 次 平整 ,每 次 都 把 最 外 面 的 层次 去 掉 . 


国 ”FlattenAtf1lst,，n] 把 列表 中 位 于 第 ma 个 位 置 上 的 子 列 表 进 行 一 层 平整 . 姐 果 mn 为 负 


煞 , Mathematica 倒 过 来 计数 , 即 从 尾部 开始 ， 


例 27 1st = 11, 12, 3|], 14, 5, 16)|, 17, {8, {9, 


Flatten[1st | 

|1, 2, 3, 4, 5, 6, 7, 8, 9, 101 
Flatten| 1st，1 

11, 2, 3, 4, 5, 16|, 7, i8, 19, i101}: 
Flatten|[ lst, 2| 

11, 2,，3, 4, 5, 6, 7, 8, :9, 10|| 
FlattenAt[ lst, 3] 
11，;42，31 ，4，5，| 6， 
FlattenAt[lst, -1] 
11, 12, 3;, |4, 5, j€||, 7, ;8, 19, 10 | 


一 -= 一 


7, i8, 19, 101 |1: 


10 |); 


< 只 有 第 三 号 位 置 上 的 子 列表 被 平整 了 一 屋 ， 


Flatten 把 嵌 春 列表 转化 为 更 简单 的 列表 . 而 Partition 刚 以 一 种 有 组 织 的 而 且 方 使 的 


方法 把 简单 的 列表 转化 为 诬 套 列表 ， 


图 ”Partition[1st, kj 把 1st 转化 为 长 度 为 k 的 子 列表 . 如果 1st 中 包含 kn+m 个 捷 素 ， 
其 中 m<k, 那么 Partition 就 会 创建 n 个 子 列表 ,而 余下 的 wm 个 元 素 被 去 挤 . 
Partition 是 一 个 生成 表格 与 矩阵 的 方便 的 谷 令 .这 时 给 出 的 只 是 最 简单 的 傅 令 形式 .如 
果 读 者 有 兴趣 的 话 , 可 以 从 帮助 索引 中 找到 命令 的 其 他 形式 . 


例 28 lsat = Range|12] 
i1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12| 
Fartition|[ lst, 4] 


i111 和， 3， 4， 1 6, 7, 81,13,，10，11，1211 


Partiticn[1st, 5] 

1 1, 2, 3, 4, Sl, I6, 7, 8, 3, 101| 
Partiticn|[ lst, 6] 

| 11, 2, 3, 4&, 5, 6|, 17, 8, 9, 10, 11, 1211! 


= 和 已 a 
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习题 解答 


Mathematica 疗 数 Integerpigits 志 回 也 合 下 逆 数 中 的 数学 组 成 的 列 缚 .利用 这 这 他 
邻 ,计算 包含 在 100! 中 共有 多 汪 位 数字 ,其 中 从 闫 边 种 行 边 数 第 50 位 数字 人 分别 星 黎 
人? 

解 上 E 


lst = IntegerDigits|[|100! | 


ig 3, 3, 2, 6, 2, 1, 5, 4, 4, 3, 9, 4, 4, 1, 5, 2, 6 8, 1, 6, 
9, 9, 2, 3, 8, 8, 5, 6, 2, 6, 6, 7, 0, 0, 4, 9, 0, 7, 1, 5, 9, 
6, 8, 2, 6, 4, 3, 8, 1, 6, 2, 1, 4, 6, 8, 5, 9, 2, 9, §, 3, 8, 
9, 5, 2, ll, 7, 3, 9, 9, 9, 9, 3, 2, 2 9, 9, 1, 5, 5, QO, 8, 9, 
4, 1, 4, 6 3, 9, 77, 6, 1, 5, 6, 5, 1, 8, 2, gg, 6, 2, 5, 4, 6, 
9, 7, 39, 2, 0D, 8, 2, ?7, 2, 2, 3, 17, 3, 8B, 2, 5, 1, 1, 8, SS, 2, 
1], 0, 9, 1, BE, 8, 8, 4, 0, 0, oO, 0, OO, 0, 0, 0, 0, 0, 0, OQ, 0, 
0O, 00, 0, O, 0, 9, 0, DO, 0O, 0, 0 

Length| 1st] 

1 5 

Part[1st，50|] 哎 冰 lst[[50 |] 

1 

Part[ lst，- 50] 或 者 lst[l[ -50]] 

2 


计算 第 100 个 Fibonacei 数 的 数字 和 . 

解 KE 

应 用 IntegerDigits 图 数 解决 这 个 问题 ( 见 3.10 题 】 
lst = IntegerDigits[Ribonaccil100]] 


3, 5, 4, 2, 2, 4, 8, 4, 8, 1, 7, 39, 2, 56, 1, 9, 1, 5, 0, 7, 5! 
Lewth[ 1 rt] 


Sunm[1st[[k]]，{k, 1， Length[lst]i] 或 者 >， lst [[k]] 
93 


Table[i * j,i，3，10|，{j, 2, ?1] 生 成 由 数组 成 的 航 套 列表 ,把 第 5 个 闻 列 下 中 的 
第 4 个 数 加 到 第 6 个 子 询 表 中 的 第 3 个 数 上 . 
解 于 


Table[i #*j, {i, 3, 10|, 1j, 2, 71] 

16, 9, 12, 15, 18, 21|, :8, 12, 16, 20, 24, 28!, 
11D，15，230，25，30，35|，112，18，24，30，36，42 1 ， 
114，2-，28，35，42，491， 16，24，32，40，48，56| ， 
| 18，27，36，45，54，631 ， 20，30，40，50，60，301| 
1st[15，4]] + lst[[6, 3]] 

67 


Mathematica 他 翁 RealDigits 返回 由 包 售 在 一 个 近 书 实数 的 数字 组 成 的 公开 ,这 个 列 


nm 一 一 


- A 


表 由 两 个 子 列 表 构成 ,第 一 个 子 列表 由 包含 在 近似 值 中 的 数字 构成 ,第 二 个 子 列表 由 小 
数 点 诺 边 的 数字 位 数组 成 .计算 x 的 有 20 位 有 效 数 字 的 和 近似值, 并 确定 最 后 一 位 数 前 
面 的 数字 是 多 少 . 

解 上 

approx = MLEi, 20] 

3.1415926535897932385 

lst = Realhigits[approx| 

:13, 1, 4, 1, 5, 9, 2, 6, 5, 3, 5, 8, 9, 7, 9, 3, 2, 3, 8, 5|, 1 

lst{[[1, -2]] 

8 


构造 一 个 列 吉 ,由 从 1 到 110 以 及 从 20 到 30 的 相 邻 整数 组 成 . 

解 # 王 

lst = Drop[Range[30], {11, 19})] 

i11, 2, 3, 4, 5, 6, 7, 8, 9, 10, 20, 21, 22, 23, 24, 25, 26, 27, 28,29，30| 


构 井 一 个 列表 ,由 从 1 到 10 的 整数 ,后 接 99, 肯 如 上 从 11 到 20 的 整数 组 成 . 

解 

lst = Insert[Range[20], 99, 11] 

11, 2, 3, 4, 5, 6, 7, 8, 9, 10, 99, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20| 


构造 一 个 列表 ,自从 1 到 20 的 整数 按 降序 排列 组 成 . 

解 8 

lst = Range| 20, 1, -1] 

:20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, €, 5, 4, 3, 2, 1 
解 “4 后 


本 


lst = Range[20]//Reverse + 这 等 作 于 Reverse[Range[20]}. 
|20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1| 


把 单词 “MI1SSISSIPPI” 中 的 字母 按 字母 顺序 排列 . 
解 5 

lst = Characters[ NISSISSIPPI”]| 

1M, 1, 8, 8, I, $, $, 1, P, P, I| 

Sort[lst] 

|I, I, I, I, M, PF, Pp, 8, S$, $, S| 


构造 一 个 列表 ,由 从 履 到 2r, 间隔 为 rA6 的 数组 成 . 
解放 
Rangs[0，2Pi， Pi/6] 或 者 Range[0，28，T7A6] 


0 开工 工人 红 3 3 LI , 
和 


Flavius Joseph 是 公元 1 世纪 的 犹太 历史 学 家 .他 记述 了 一 个 故 囊 ,说 有 10 个 狐 大 大 储 


第 三 章 加 | 表 -71 ， 


，372 ， 


一 一 
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一 一 一 一 一 一 


在 出 洞 里 , 为 了 不 同 罗 马 人 投降 , 他们 选择 了 一 种 一 个 接 - -个 自杀 的 方式 .具体 方法 就 
是 他 们 围 成 一 个 贺 呈 ,然后 依 深 一 个 人 霖 挥 与 他 相 邻 的 人 .那么 谁 是 最 后 的 生存 背 叱 ? 
解 。 睫 

分 别 给 这 些 人 编号 1 到 10, 并 定 匀 一 个 由 这 10 个 履 数 组 成 的 人 询 肯 . 

lst = Ranglel 10| 

11，2，3，4,，5, 6,，7,，8, 9，101 

第 一 个 死 抒 的 人 是 2 号 . 国 此 我 们 把 它 从 列表 中 去 掉 , 方 法 就 是 向 左轮 换 列 表 , 并 把 它 
大 列表 中 删除 . 

lst = Rest[RotateLeft[ Lst]| 

|3, 424, 5, 6, 7, 8, 9, 10, 1| 

新 的 列表 由 3 开始 , 编号 2 被 去 控 了 .为 了 确定 生存 者 ,我 们 需要 重复 这 个 过 程 ,直到 
只 剩 下 一 个 山 号 . 

lst = Rest[RotateLeft| 1st|] 

15, 6, 7, 8, 9, 10, 1, 31 

lst = Rest[RotateLeft|[ 1st ] ] 

17, 8, 9, 10, 1, 3, 5| 

ist = Rest|RotateLeft[1st|]| 

193, 10, 1, 3, 5, 7| 

lst = Rest|RotateLeft[1st |] 

{i, 3, 5, 7, 9| 

lst = Rest[RotateLeft|[ 1stj] 

{5, 7, 9, 1| 

lst = Rest[RotateLeft|[ 1st]] 

{1s, 1, 5} 

lst = Rest[lRotateLeft|[1st |]] 

15, 9| 

lst = Rest[RotateLeft{1lst]] 


151 | 5 号 为 生存 者 ，| 


各 然 一 步 一 落地 观察 列表 变化 相当 有 趣 , 然而 鸡 于 长 的 列表 ,上 面 的 方法 就 不 大 适用 
了 .更 有 效 的 方法 是 利用 While 循环 . 

]st = Ranpge[10]; 

While[Length[lst] > 1, lst = Rest[RotateLeft[1lst]]] 

lst 

1s: 


确定 在 列表 la，|b, cj, {fd, ej}，|E, gl， ffh, 证}，{j，|k，1， mj}; 中 最 高 层次 元 素 
是 什么 . 

解 

lst = [a, {bp, cj), | ig, e | ， {£, 9j， | ih, 工 | | ， 人 ， |k, 1， m} 1}; 

Depth| ist | 

5 一 记 和 住 从 这 个 数 中 减 1 才 是 最 高 层次 ， 
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Level[ lst, 14!] 
‘h, i, k, 1， 和 | 


3.21 分别 简 化 列表 fa，{b，ej， fei ， 主 ， 本 | ， 直人， 站 ，{，{z，1， 一 个 层次 和 两 
个 层次 . 
解 E 李 
lst = |a，{b， el, [ld, e!, {£, gj, {{h, i114}, {3, fk, 1, ml}}}; 
Flatten|l lst, 1| 
fa, b, c, 1d, el, {5£, gt, {lh, i311, {3, ik, 1, m|!| 
Flatten| ]st, 2] 
|a, b, ©, Ud, e, £, g, ih, i1, 3, {Kk, 1, mtt 


3.22 ”从 由 妨 到 XX 的 字母 构成 的 列表 出 发 ,构造 出 有 6 个子 列 表 的 列表 , 每 个 子 列表 中 有 四 
个 字母 ， 


解 ”6 
lst = CharacterRangel A, X | 
|B, B, C, D, E, F, &, H, I, I, K, L, M, N, 0, P, 0, R, 8, T, U, V, W, Xt! 
partition[ lst, 4] 
ia, B, €, DI, {IE, ?, &, Hi, jI, 73, K, Ll, 
iM, N, 0, Pl, {Q, R, 38, TI, IU, V, W, XK: 


3.4 集合 论 


集合 在 Mathematica 中 是 用 列表 表示 的 .可 以 用 基本 的 列表 操作 图 数 Union, Tntersec- 
tion 与 Complement 对 其 进行 处 理 . 

图。 Uniona[1st1，1lst2] 把 两 个 列表 lstl 与 lst2 组 人 台 成 一 个 列表 , 并 且 去 掉 重 复元 素 . 
虽然 在 这 里 只 是 给 出 了 两 个 列 玫 ,实际 上 可 以 出 现任 翡 数目 的 列表 参数 ,特别 地 ,U- 
nion[1st] 驻 会 去 抒 lst 中 的 重复 元 素 . 

咽 InterSsection[Istl，1Lestz] 返回 同 对 出 现在 lstl 与 lst2 中 元 素 的 有 序列 表 , 如 果 
lst1 与 1st2 没有 交集 , 即 没 有 共同 元 素 ,那么 命令 Intersection [1st1，1lst2 | 返回 
空 列表 1. 

国 Conplement[universe，1st1] 柜 回 由 包 会 在 universe 中 ,但 不 在 1stl 中 元 素 组 成 的 
有 序列 表 , 在 这 里 universe 代表 全 集 . 

加 Conplement|universe, lst1, lst2] 起 回 由 世 含 在 niverse 中 ,但 不 在 Lstl 和 1st2 
中 元 素 构 成 的 有 序列 表 . 这 茶 萌 令 可 以 自然 推广 到 雾 于 两 个 列表 的 情形 . 


例 29 ist = |a, b, c, a, c, c¢, hb, b| 
la, b, ¢, a, ©, ©, b, bi 
Union[ 1st] 


{a,b, ci 


例 30 wniverse = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}, 
1st1 = {1, 3, 5, 7};， 
lst2 = }5, 7, 8, 10|]; 
Union[lst1, lst2 | 


3 


Mathermatica 司 几 指南 


11, 3, 5, 7, 8, 10! 
Intersectionl lstl, lst2 | 

{5 ,7| 

Complement [universe, 1st1 | 

12, 4, 6, 8, 9, 101 

Complement [universe, lst1i, 1st2] 
12, 4,6, 9| 


在 BasicInput 模板 上 的 届 与 门 符 配 也 分 别 表示 并 集 与 交集 . 
国 1stl U1st2 等 价 丁 Union [1st1，1Lst2]. 
国 1stl 和 门 1st2 等 价 于 Intersection [lstl, lst2]， 


例 31 lstl = 11, 2, 3, 4, 5]; 
lst2 = {3, 4, 5, 6, 7|; 
lst1 (lst2 
|1, 2, 3, 4, 5, 6, 7| 
1stl 全 1st2 
13，4，5| 


在 软件 包 DiscreteNath -~ Combinatorica- 中 有 大 其实 用 的 与 集 舍 有 关 的 命令 .其 中 包含 
CartesianProduct, Subsets 与 RSubsets, 

由 定义 , 两 个 集合 A 与 B 的 第 卡 儿 积 就 是 元 素 的 有 序 对 集合 , 其 中 在 每 对 元 素 中 ,第 一 个 
元 素来 自 于 4 ,第 二 个 元 素来 自 于 B. 

加 ”CartesianProduct [1st1，1st2] 退回 ]stl 与 lst2 的 第 卡 儿 积 ， 


例 32 DiscreteMath~ Conbinatorica™ 一 这 上 载 相应 软件 包 , 见 第 -- 章 ， 
1stl = [a, b, ce, 过 ; 
lst2 = {x, Y，z]; 
CartesianProduct[1lsti, lst2) 
| a, x!, ja, yi!, la, z1, Ib, x|, {Ib, y!, ib, z}, 
ic, x{, lc, yl, le, zl, ld, x|, td, ¥/, Id, zti 


所 请 集 台 A 的 子 集 束 是 每 个 元 素 都 是 和 中 元 素 的 集合 . 空 集 是 每 个 集合 的 子 集 .包含 空 集 在 
内 ,一 个 有 ;个 元 索 的 集合 共有 2* 个 子 集 , 由 A 的 所 有 子 集 构成 的 集合 称 淤 A 的 鹤 集 . 
十 Subsets[1st] 捞 问 一 个 列表 ,由 lst 的 所 有 子 集 构 成 , 其 中 包含 空 集 ,这 也 就 是 1st 的 
睡 集 . 
旧 ”KSubsets [1st，k] 返回 一 个 列表 ,由 lst 的 所 有 包含 K 个 元 素 的 子 集 构成 . 


例 33 妇 DiscreteNath~Combinatorica~ < 如 果 已 经 二 载 了 这 个 软件 包 , 可 以 忽略 ， 
】 3 七 三 | a， b, c, di; 
Subsetsl lst | 
i al, fa, bl, ibl, 1b, ec!, ta, b, cl, [a, cl, ict, fc, dl, 
|a, c, dl|, ia, b, ©, di, |b, c, d|l, ;bh, dl, ia, b, dl, fa, d|, 
Id!| 
Subsets|l lst]/ /Sort < Sort 使 子 集 以 更 有 组 织 的 形式 显示 出 来 ， 
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i al, {bl, fet, da bl, la, cl, la, dt, {ib, ct, {b, dl, 
te, di}, fa, b, cl, ta, Bb, dt, fa, ce, d|, 1b, ce, dt, a, b, ce, dt 

KSubsetsl 1st, S| 

| fa, b, cl, a, b, di, ta, c, df, lb, c, d!) 


习题 解答 


在 单词 “MISSISSIPPI” 中 有 哪些 不 同 的 字母 ? 
解 #3 


Unjion[Charactarsf MISSISSIPPI” |] | 
|I, M, P, St 


计算 集合 la, b, ec, d, e, f, gl, lc, d, e, 三 g, h, i| 与 je {, g, h, i, j, kt 的 并 集 与 
交集 . 


解 # 王 

setl = |a, b, e, d, e, £, og}: 

sat2 = {ce, d, e, £, ;上 b， ij; 

set3 = |e, f, 9, h, i, j, k}; 

Union[ set1，set2，set3] 或 者 setl Uset2 Uset3 

la, b, c, d, e, f, g, h, 1, j, kt 

Intersection| setl1，set2，set3] 或 者 satl1 门 get2 门 Set3 
ie, f, gi 


求 出 所 有 在 集合 1a，b，c，d，e, f，g|} 中 但 不 在 ja,c，d，e| 中 的 元 素 . 
解 # 

setl = |a, b, c, d, a, £f, gj 

Set2 = {a, oe, 可 ， | 

Complemnent[ set1, set2] 

|b, £, gi 


已 知 第 20 个 素数 为 71, 求 出 所 有 小 于 71 但 不 是 素数 的 数 . 

解 1 

universe = Range[71]; 

prigenuanbers = Table[Prinme[k], |{k, 1, 20}]; 
Complement[universe, prinenunbergsl 

11, 4, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 22, 24, 25, 26, 
27, 28, 30, 32, 33,， 34, 35, 36, 38, 39, 40, #42, 44,， 45 ,45,48, 
49, 50, 51], S52, 54, 55, S56, 57, S38, 0, 62, 63, G4, 65, 65, 68, 
69，730| 


构 翰 一 个 列表 , 由 所 有 的 辅音 字母 组 成 


TT 


Mathernatica 使 用 指南 


解 FE 

letters = CharacterRangel a, z” |]; 

vowels = Characters| aeiou |; 

consonants = Complement[ letters, vowels | 


1b, 局 ， dl 于， 癌 ， h, ]， LF 1]， mn, ni, 六 ， 芝 ， 工 + 3， t，, 到 从 ， 其， 了 了 ， z| 


给 出 所 有 的 小 于 1000， 而 且 既 是 泰 数 ,也 是 Fibonacei 数 的 数 . 
和 解 。EE 
k = 1; lstl = |{}; 
While[Fibonacci[k]<1000, 
1stl = Append[lst, Fibonaceci[k]]; k ++] 
k = 1;: lst2 = |}， 
Hhile| Prime[k| .1000, 
lst2 = Append[1lst2, Prime[k]]: k ++] 
lstl1 (lst2 
12, 3, 5, 13, 89, 233| 


创建 一 个 列表 ,由 la，b，c，d，et 的 所 有 于 集 构 成 .共有 和 多少 个 子 集 ? 
解 ”EE 
DiscreteMath~* Combinatorica™ 一 首先 必须 上 载 这 个 软件 锯 ， 
letters = |a, b, c, d, el; 
Subsets| letters |//Sort 
11|, ial, ipl, le!, fd:, le'., ta, bl, ja, c|, |a, di!、 ja, el, 
‘'b, ei, ib, di, Ib, el, ie, dt, jc, el, ld, el!, ija, b, &|, 
ia, b, di!, la, b, el, ja, c, dl, la, c, e!l, ija, d, e:, jb, c, d|, 
ib, c, el, ib, d, ef, le, d, el, 1a, b, ¢, di, a, b, ¢, el, 
|a, b, dd, el, ia, £, d, el, Ib, ¢, dd, el, a, b, c, d, el | 
Length[ 先 ] 
了 2 


他 建 一 个 列表 , 由 fa，b，c，d，ef 的 所 有 包含 二 个 元 素 的 子 集 构 成 . 有 几 少 个 这 样 的 
子 集 呢 ? 

解 

Discreteldath ~ Combhinatorica™ 

letters = {a, b, c, d, el!; 

KSubsets[ letters, 3] 

iia, b, cl, la, b, di, ia, b, et, |a, c, di/, ia, €, e|, la, d, et!, 


[|b, &, dl, {Ib, c, et, Ib, &, el, |e, d, ett 


3.5 表格 与 矩阵 


在 Mathematica 中 用 和 伦 总 列表 表 求 胡 首 与 矩阵 .在 Mathematica 内 部 ,它们 的 存 贮 方法 设 


有 有 区别, 但 如 果 使 用 TableFornm 与 MatrixForm 清 数 可 以 以 不 同 的 撒 式 显示 出 结果 .通常 比较 
方 仇 的 用 法 是 在 站 阵 御 称 的 右 迅 梧 用 /i/ TableFornm 戚 / /MatrixForm. 
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违 阵 和 表格 可 以 按 髓 套 列 表 的 方式 直接 输入 .一 个 有 xm 行 二 询 的 抵 阵 或 袁 格 ,就 是 一 个 
有 m 个 子 列表 的 册 套 列表 ,每 个 子 列 表 包 含 n 个 元 素 . 

也 可 以 通过 Iaput 一 Create Matrix/Tabple/Palette .… 悍 利 地 输入 拭 阵 和 表格 ， 

这 其 中 也 有 些 非常 方便 的 选项 .点 击 OK 就 会 产生 空白 洛 点 , 另外 使 用 峙 同 键 可 以 从 一 
个 元 素 进 入 取 另 一 个 元 素 中 . 
EE 
轩辕 回 
局 


(4 CrBatE Table/Matriy jalettes es 一 
Moke La sd 
C Table (plain GridBow 
Cancal | 
人 Palete He 


Number of rows: EF 
Number of columns: 5 


[ Drew lines between rows 
矿 Drawiines between columns 
厂 Drawfrarme 


三 Flwith 
「 Fill diagonal | | 


例 34 ist = {111, 2, 3, 4}, 15, §€, ?, 8}, {9, 10, 11, 121!1 
| 11, 2, 3, 4|, i5, 6, ?, 8}, 19, 10, 11, 12|| 
MatrixForm[ lst 1 或 者 lst/ /NatrixForm 


1] 2 3 4 
: 6 7 
lO 11 了 > 
这 里 有 两 录 特 殊 的 生成 矩阵 的 命令 值得 记 住 , 因为 在 实际 中 经 常用 到 它们 . 
加 ”IdentityMatrix[n] 生成 mxana 阶 算 阵 , 共 主 对 角 线 上 元 素 为 1, 其 他 元 素 全 为 0， 


国 ”DiagonalMatrix[1st |] 生成 一 个 阶 为 Length[ lst] 的 方 阵 ,其 对 角 煞 由 1st 中 元 素 组 
成 ,而 其 他 元 素 全 是 0. 这 里 要 求 lst 为 某 种 对 象 的 列表 . 


例 35 IdentityMatrix|[ 3| DiagonalMatrix[ 1, 2, 3}| 
1 0 0 1 0 0 
0 1 0 0 2 0 
0 0 1 0 0 3 


氛 阵 一 日 有 了 定义 ,号 可 以 用 加 法 ,减法 \ 常 量 浅 法 和 先 阵 乘法 等 运算 进行 什 阵 组 合 . 和 矩阵 
乘法 运算 月 杀 导 ( . ) 表示 ,在 第 十 二 章 线 性 代数 中 将 对 算 阵 详 加 讨论 . 


Mathemauca 使 用 指南 


一 -一 一 一 一 一 一 一 -一 - -一 -一 一 -一 -一 一 一 - 一 -一 


1 2 3 这 个 矩阵 是 用 Ingut 地 Crente Kntriz/Table/ 
例 36 B= i4 5 6 Palette… 创 建 的 ,而 Mathematiea 把 矩阵 显示 
7 8 9 为 骨 套 列表 . 
111, 2, 3}, 14, 5, 6}, 17, 8, 91} 


2 1 5 
有 = |4 了 之 
1 3 


2, 1, S51, {4, 7, 2;, 11, 3, 21| 
A+ Bo// MatrixForm 


3 3 8 
B i2 8 
11 11 


A- Bi// MatrixForn 


-1 1 一 
0 一 4 
6 5 7 


3R 7 A MatrixForm 


3 pb 9 
12 15 18 
1] 24 27 


BA, BV// MatrixForm 


13 24 15 
> 57 | 
5 90 69 
有 种 情形 值得 记 住 , 那 就 是 如 果 1st 为 数 的 简单 列表 ,那么 lst. lst 生成 元 素 的 平方 和 . 


例 37 1lst = 11, 2, 3, 4, 5}; 
lst. lst 
与 与 


表格 也 是 存 贮 为 符 套 列表 ,但 可 以 用 TableForm 显示 成 表格 的 形状 . 虽然 这 条 命令 可 以 表 
示 任 何 维 的 表格 ,但 在 本 书 中 我 们 只 讨论 一 维和 二 维 表格 . 

国 ”TableForm[1st] 把 lst 中 的 元 案 以 方 阵 形式 显示 出 来 . 

如 果 没 有 指定 其 他 选项 的 话 , 1st/ /Table Bora 与 TableForm[1st] 是 等 价 的 . 


例 38 1st = {112, 7, 10}, {105, 205, 7}, {3, 30, 300]]; 
TableForm[1st |] 或 者 lst//TableForn 
12 7 10 
105 205 7 
3 30 300 


从 上 面 的 结果 可 见 , 在 表格 中 的 数字 默认 是 左 对 齐 的 .有 时候 这 可 能 会 使 表格 难以 浏览 . 
可 以 用 TableAliqgnments 选项 媒 正 这 一 点 ， 
TableAlignments 控制 表格 中 数字 的 对 齐 方式 . 
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* TableAlignnents 一 Left 把 列 调整 为 匹 对齐 ! 黑 认 便 ). 
* TableAlignments ->Right 把 列 调整 为 右 对 齐 . 
sa TableAlignments ->Center 把 列 调理 为 居中 对 齐 . 


例 39 1lst = {112, 7, 10}, {105, 205, 7}, [3, 30, 300|}; 
Tableform| lst, TableAlignments —*Right | 


1l2 7 10 

105 205 7 

3 30 300 

TableForm[ lst, TableAliqnments -Center | 
12 7 10 

105 205 了 

2 30 300 


在 TableForm 命令 内 ,可 以 用 TableHeadings 选项 插入 行 与 列 的 标签 . 
"TableHeadings ~—*ione 为 Mathematica 的 默认 值 . 


TableHeadings 一 Rutomatic 为 行 和 列 都 生成 由 思 综 整数 构成 的 标签 ， 


例 40 1st =i{ia, b, ec}, id, e, £), lg, h, i}); 
TableForn| lst, TableHeadings —Autonatic]| 


1 2 3 
1 a bh C 
2 dd 全 f 
2 日 h i 


每 行 和 每 列 都 可 以 用 字符 串 { 即 包 图 在 双 引 号 内 的 字符 ) 或 Mathematica 表达 式 作 单 独 的 
标签 .这 个 选项 的 一 般 形式 为 
” TableHeadings 一 | 行 标签 表 , 列 标签 表 | 
其 中 行 标签 家 就 是 行 标 签 组 成 的 列表 , 侧 列 标签 表 就 是 列 标签 组 成 的 列表 .如 果 只 希望 有 


行 标签 , 而 列 没有 标签 ,或 者 与 此 相反 , 即 只 第 望 列 有 标签 , 而 行 没有 标签 , 那么 就 有 None 取代 
行 标签 表 或 列 标签 末 . 


例 41 lst = {fia, b, ce|, ld, e, £}, fg, h, i|}; 
TableForm[ 1st， 
TableHeadings 一 | | rowl’, ‘row2”, "row3’}, 
| eoluanl “coluan2 “colunan3 


TableAliqgnments 一 Center | 


columnl columnz column3 
rowl a b 2 
rowz d 名 f 
roOw3 可 h 1 
TableForn| lst, 


TableHeadings ~—* {Hone, |“celumnl”, “column?”, “colunn3"}}, 


.RD “ 
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TableAlionments 一 Center | 


CoOlumnl 
S| 


入 
yg 


Ol umn 


Ol umn3 


TableForm [1st, TableHeadings ~—|{ row]l’, ‘row2”, “row3”|, Nonel!, 


rowl 
TOWZ 


TOWA 


TableAliqnments 一 Center | 


a b 
| 忆 
可 h 


上 
上 


1 


选项 TableDirections 确定 农 格 中 元 素 押 放 的 方式 . 


* TableDirections 一 Column ( 默 忆 人 犀 } 使 得 在 显示 表格 时 ,每 


个 内 层 列表 的 第 一 个 


元 素 显 示 在 第 一 列 上 , 然后 每 个 内 层 列表 的 第 二 个 元 素 显 示 在 第 二 列 上 , 做 此 类 


推 . 


* TableDirections 一 Row 仁 上 曾 的 擂 下 中 ,用 行 代 符 列 . 


例 42 Clearlal| 


lst = Rrray[a，|3，41 | 


iaLl 1], a[1, 2], a[1, 3], 


al2, 4]1， la[3, 1], 


al3，2]， 


al1，4]|， 
al 3，3 ]， 


1 al|2，1]，a[2，2]，a[2，3]， 


a[3，4j]|| 


TableForm| 1st, TableDirections 一 CoLlumn | 


ail, 1| 
二 | 2,1 | 
a[ 3, 1| 


al1l,，1| 
了 | 1，2 
al1l，3| 

| 


al[1，4 


缺 省 情况 下 ， 
然而 默认 但 可 以 被 覆 广 


a[1, 2| 
二 | 2，2| 
a[ 3, 2] 


al2, 1] 
alL2，2| 
alt2，3j 
[ 


a| 2, 4| 


a|1, 3| 
a|2,. 3| a|2, 4] 
a[3, 3| 
TableForm|[ lst, TableDirections 一 Ron | 
a[l 3,1] 
a| 3，2] 
a 引 3，3] 
a|3,， 4| 


a|1, 4| 


al 3, 4| 


a[T1l,，1],， a2 11 以 太 


| af 3，1] 等 元 隶 构 成 溃 一 询 


Ti，1],， a[2, 1] 以 点 


| a[ 3，1] 等 元 素 档 成 第 一 行 ， 


Mathermatica 入 空 胃 示 小 数 点 石 边 的 零 .这 有 时 候 会 导 略 表格 的 显示 不 一 致 . 


:从 而 按 指 定 要 求 显 赤 ， 


PaddedFors 对 命令 或 计算 的 输 击 进行 格式 化 处 理 . 
“。 PaddedForm [表达 式 ,，n] 显示 表达 式 的 值 ,并 保证 结果 占有 nn 位 数字 的 空白 .命令 
的 这 一 形式 可 以 应 用 于 整数 或 实数 的 近似 值 . 
小 数 点 并 不 算 作 一 个 位 置 . 
PaddedForam[ 表 达 式 ，{n, fj ] 显示 表达 式 的 值 , 并 保证 结果 占有 n 位 数字 的 空白 ， 
而 于 表示 小 数 点 右边 的 位 数 , 如 果 需 要 删除 数字 的 话 ,就 对 数 的 小 数 部 分 进行 四 合 


注意 


五 人 . 


例 43 a = 123.456789: 
PaddedForm|a, 12| 
123.456789 


一 数 的 左边 有 :位 数 的 空白 ， 


第 二 章 放水 


PaddedForm[ a, 20] 


123.456789 < 一 数 的 左边 有 11 位 数 的 空 日， 
PaddedForm[a，| 之 站 ，311] 
123.457 一 数 拘 让 边 有 14 位 数 的 空白 ,第 三 位 小 数 被 四 会 五 入 为 7. 


同 其 他 区 数 一 样 , PaddedFornm 画 数 可 以 作用 到 整个 表格 上 . 


例 44 下 面 这 茶 草 令 定 义 了 一 个 表格 ,由 前 10 个 正 整 数 的 平方 根 和 立方 根 组 成 . 


1st = Table[fa，N[va]，MEVn]i，ta，1，101]; 
首先 用 标准 的 Tablegorm 命令 显示 表格 
TableForp| 1st| 

1 1. 二 

2 1.41421 1.25902 

3 1 .74205 1.44225 

4 2. 1 .5874 

5 2.23607 1 .70958 

6 2.d4949 1 .8171i2 

了 之 . 虽 45 7 1.91293 

B 2. B28B43 2 . 

9 3， 2.08008 

10 3.16228 2,15443 


银 后 用 PaddedForn 规范 整个 囊 档 ， 
PaddedForm|[ TableForm[ 1st], 17,5| | 


如 果 希 望 对 每 一 列 进行 不 同 的 处 理 , 那么 就 要 对 列表 中 的 每 个 元 束 进 行 处 理 , 而 不 能 直接 


让 二 站 本 BO 本 th 睛 


. M0000 
.QUODOb 
.OODNUO 
,DONOO 
.UOOOV 
.00000 
.0000 
.00000 
.O0000 


10.00000 


.0000 
.A41421 
. 73205 
.DO00D 
.35607 
-444949 
.B4515 
,日 2843 
-00000 
.i16228 


ti 3 ia ha ha -ar ha 贿 号 


.O0000 
.25992 
.dd225 
.S814 人 0 
. ?09988 
.B1712 
.91293 
00000 
.08008 
.15443 


对 整个 表格 进行 操作 . 
paddedn : = PaddedForm[n, 2| 
paddedsquaroot : = PaddedForm[N[yn], {11, 71] 
paddedcuberoot : = PaddadForm| N[v'n], 17，3}] 
lst = Tablel {paddedn, paddedsquaroot, paddedcuberoot|, 
in, 1, 10)]; 
TableForm| 1st | 
1 1 ,0000000 1.000 
2 1 142136 1 ,zh 
了 1 .7320508 1 .442 


" RB 


O000000 
2360680 
.4494897 
.BA5T7513 
.B284271 
.O000000 
1622777 


a ho io ho hu Il 


Mathermatica 使 用 指南 


1.587 
1.710 
1.817 
1.313 
2 .000 
2.080 
2.154 


行 与 列 之 间 的 间距 可 以 用 ?ableSpacing 调整 .这 个 选项 指定 了 添加 到 每 个 方向 上 的 间距 


大 小 . 


* TableSpacing 下 | 行 间 距 ， 列 间距 1， 其 中 行 间 蝶 指定 在 表格 中 相 邻 行 之 间 的 空 行 
数 , 而 列 同 距 指 定 相 邻 列 之 间 的 空 列 数 . 


例 45 1lst = [fa, b, cl, {d, e, £;, {9g, h, i}}; 
TableFornm| lst, TableSpacing —* |, 0}] 


| bh 
dd 已 
村 h 


忆 


1 


< 在 行 或 列 之 则 没有 间隔 ， 


TableForm[ lat, Tablespacing |1, 3}] 


C 
上 


工 


* 每 之 间 空 一 行 , 烈 之 间 衬 三 列 . 


TableForm| lst, TableSpacing |3, 1}] 


a b 
过 全 
h 
a b 
| 已 
9 h 


呈 每 之 间 室 三 行 , 列 之 间 空 一 列 ， 


可 以 用 tolumnForm 把 列表 表示 成 单个 列 ， 

加 ”ColunmnFcra[1st| 把 1st 表示 成 单个 列 . 

国 ”ColumaForm[1st， 水 平方 向 ] 这 里 要 指定 每 行 的 对 齐 方式 .对齐 方式 水 平方 向 有 Left 
(表示 左 对 齐 , 默认 值 ), Center( 右 对 齐 ) 和 Right( 居 中 ). 

面 ”ColumnForm[ 1st,， 水 平方 向 ， 竖 直方 向 ] 这 里 还 可 以 指定 每 列 的 对 齐 方 式 . 竖 直 方向 
对 齐 方式 有 Rbove( 巾 上 对 齐 ), Below( 回 下 对 齐 , 载 认 便 和 Center( 庆 中 ). 


例 46 1lst = ia, bb, cecel|; 
ColunnForm[ 1st]| 


忌 


己 全 全 


ColunnForm! 1st, 


及 
bb 


信人 记 


Right] 


3.31 


3.33 


3.34 


弟 二 草 列 衣 


习题 解答 


网 车 一 个 3 阶 扼 阵 , 由 相依 整 数组 成 , 同 右 同 干 增 大 
解 

lat = Table[3i + j, {i, 0, 2}, {|j, 1, 3}] 

i111, 2, 3|}, 14, 5, 6}, 17, 8, 911 

gt // MatrixForm 

1 2 3 

4 5 6 

7 8 9 


Hilbert 怒 阵 是 -个 方 阵 ,其 (i,j) 位 置 上 的 元 素 为 -一 了. 由 此 构造 5 阶 Hilbert 拓 
阵 ， 
解 EF 


ali.,j.] = 1/(i+j -1); 
hilbert = Arravy[a, 15, 5|] 


TT 


一 一 


] 1 1 1 
了 了 二 5 
i 1 1 1 1 
2 了 4 5 b 
1 1 1 1 1 
3 dd 5 6 7 
1 1 1 1 1 
4 5 bb 7 8&8 
1 1 1 1 1 
5 5 7 8 9 
构造 5 阶 单位 阵 . 
解 E 及 


IdentityNMatrix[5}//MatrixForm 


1 0 0 0 0 
0 1 0 0 0 
Yd 0 1 0 0 
0 0 0 dl 
0 0 0 oo 1 


构造 一 个 5 和 阶 红 阵 , 其 对 角 元 素 为 脐 $ 个 案 数 ,其 余 元 率 者 是 00. 
解 上 


diag = Table[Primelk)], {|k, 1, 5}] 


=- 六 


， 册 二。 


3.33 


3.306 


Mathematica 使 四 指南 


12, 3,5, 7, 11| 
DiagonalMatrix| diag] // MatrixForn 
2 0 0 0 0b 


0 
0 
U 


i 
| 
| 


0 
0 
DO 
D 1]1 

构造 一 个 有 三 列 的 表格 ,第 一 列 由 从 1 到 10 的 相 邻 整数 构成 ,第 二 列 和 第 三 列 则 分 别 
是 它们 的 平方 和 立方 .分 别 给 这 二 列 加 上 标签 ”integers” “squares” 和 “cubes”. 

解 # 生 

lst = Table[ |k, k’, kl, {xk, 1, 101); 

TabieForm| lst, 


TableHeadings -> | None, {“integers”, “SUUAreS ， “cubes”| |], 


TableAlignments —*Right | 


integqers Squares cubes 
1 1 | 
2 4 日 
3 9 27 
4 16 4d 
5 25 125 
6 436 216 
1 49 343 
a 564 512 
号 B81 729 


Fa 
| 
Lie 
上 一 
避 3 
上 > 
上 


如 果 c 表示 以 摄氏 为 单位 的 温度 , 那么 它 对 应 的 华氏 温度 就 是 了 = 二 c + 32. 构 造 一 个 
列表 , 以 水 平 显示 的 方式 , 说明 从 1 到 10 摄氏 度 , 每 隔 1 度 所 等 价 的 华氏 温度 . 
解 本 


f= 二 cy 32 

lst = Table[{c, FaddedForm[N[f], 13, 11]}, {e, 1, 101]; 

TableForm| lst, TableDirection 一 ROW， 
TableHeadings "= {Hone, |“Celsius’, “Fahrenheit”||, 
TableAligqnments —*Center] 

Celsius 1 2 3 4 5 6 7 8 9 1i0 

Fahrenheit 33.8 35.6 37.4 39.2 410 42.8 44.6 d5.4 49.2 50.,0 


构造 一 个 列表 , 说 明 从 0* 到 30', 每 隔 5* 所 对 应 的 弧度 . 
解 下 
lst = Tablel ideg，H[deg Degree]j， {deg, 0, 30, 51]; | Dogree 为 Mathematim | 


| 帝 数 ( 见 第 - 宣 )， | 
TableForm[ lst, TableDirection -—* Row, 


3.38 


3.39 


第 二 章 列 下 


TableHeadings — [None, |'Degree’, Radians | |, 

TableAlignments Center | 
Degree 昌 5 10 15 20 25 30 
Radians 0. 0O.0872665 0.174533 0.28]799 0,.309066 0.436332 D.,523599 


如 果 在 银行 帐户 中 有 p 美元 , 存 期 为 + 年 ,年 利率 为 ", 每 年 支付 次 ,那么 在 站 次 文 


付 后 总 钱 数 为 | 1+ 二 | 美元 . 若 在 帐号 中 存 1000 美元 ,利率 为 6% ,每 年 支付 四 次 ， 
列表 说 明 在 三 年 期 中 每 次 支付 后 的 累加 的 钱 数 ， 


解读 

Pp = i000; 

r= .06; 

n = 生 ; 

t = 3 

a = pll + r/n)”; 


lst = Tablef ik, a}l, Ik, 1, nt}|; 
TablefForm[ lst, TableHeadings — {None, 1 "period’, “amount” || 
period amount 

1015. 

1030 .22 

1045 .68 

1061 .36 

1077.38 

1093.44 

1109.84 

1iz25.49 

1143.39 

1]160.54 

1177 .95 

1195.,62 


的 部 


~ 
中 旋 


如 果 在 银行 帐户 中 有 p 美元 , 年 利率 为 ,每 年 支付 n 次 , 那么 在 :年 后 总 钱 数 为 
pl 1+ 二 | 美元 .如 打 利 率 是 连续 支付 的 , 那么 ! 年 后 总 钱 数 为 pe” 车 在 帐号 中 存 


1 000 美 元 ,年 利率 为 6% ,列表 觉 明 若 利率 为 每 季度 、 每 月 、 锤 天 ,以 及 连续 支付 时 在 
10 年 内 每 个 年 终 时 累加 的 钱 数 


解 # 汪 

P= 1000.; 

r =z .06; 

a = PaddedForm[p (1 + r/4)*, 17, 2}]; 

b = PaddedForm[p (1 + r/12)*:, {7, 2|]; 
ec = PaddedForm[p (1 + r/365)™ t+t, 17, 21]; 
Ud 一 PaddedForm[ p ExpLr t|, 17，2] ] ; 


tt = PaddedForm[t+, 2]; 
1st = Tablel |tt, ay b, 让 dj， i, 1， 101]; 


+ 


Mathemstica 使 用 指南 


TableForm[lst, TableHeadings — {None, | Tear ‘quarterly, 
“monthly’, daily’, continuously |1}] 
Year cuavterly monthly daily continuously 


1 1 0S1 . 36 1061.68 10561.83 109061.84 
2 1128 ,49 1127.16 1127. 49 1127 .50 
了 1195.62 1196,688 11]97.20 1137.22 
4 i1268.99 l1270,d9 1271.22 1271 .25 
5 1346.86 1348.85 1349.83 1349.86 
6 1429.50 1432.04 1433 .259 1433.33 
7 1517 .22 1 520., 37 S521.91 1521 .86 
日 1801. 32 1614,14 1616.01 1616.07 
9 1709.14 1713.70 1715,.93 1716.,01 
10 181]4.02 1819.,40 1822.03 1822.12 
a XxX 二 
3.40 ”一 笔 价值 a 美元 的 抵押 ,每 月 支付 一 一 五 一 美元 , 其 中 nn 为 借贷 年 限 , + 每 年 
i-|1+ 去 | 


的 利率 .构造 一 个 列表 ,说 明 一 牧 30 年 的 价值 250 000 美元 的 白 押 上 , 当 利 率 从 6% 到 
8% ,| 上司 隔 为 0.25% 时 ,每 月 了 所 需 要 支付 的 钱 数 . 


和 解 二 
a = 250000 ; 
n = 30; 
a 
12 
Paynent : =， ni 
r 
= 一 一 
i EE 12. 


ist = Table[ {FaddedForm[r, (5, 4}], 

PaddedFornm[ payment, 16, 21]}, {r, .06, ,08, .0025|]]; 
TableForm[ lst, TableHeadings —None, | rate’, payment |} ]] 
rate payment 
0.0600 1498 .88 
0 .0625 1539.29 
0 .950 1580.17 
0.0675 1621 .50 
0.0700 1663.26 
0.,0725 1705 .44 
0O.07580 4 ,04 
0,0773 1]791 .03 
0 .0800 1834 .41 


第 四 O 章 一 扒 图 条 


4.1 绘制 一 元 函数 的 图 形 


如 果 你 曾经 利用 寺 一 种 标准 的 程 友 设 计 便 言 绘制 图形, 闭 么 就 一 定 会 非常 扎 赏 Mathe- 
matica 所 提供 的 简单 绘图 方法 .在 许多 情况 中 , 只 需要 一 行 代码 就 可 以 生成 具有 两 个 变量 的 一 
个 取 数 战 里 一 般 关 系 的 图 形 演示 . 

虽然 在 许多 上 默认 情形 中 , Mathematica 的 方式 是 可 以 的 ,但 还 是 需要 有 许多 选项 以 控制 某 
些 细节 .在 本 节 我 们 将 描述 一 些 经 常用 到 的 选项 ,六 给 出 许多 例子 , 说明 用 这 种 方法 绘制 图 形 
的 霖 单 性 . 

符 制 号 数 图 形 的 基本 命令 是 Plot. 哩 然 在 下 面 的 描述 中 , 用 x 作为 独立 变量 ,但 实际 上 此 
处 可 记 用 任何 符号 ， 

国 ”Plot[f[xj]，!x，xnmin，xmax| | 绘制 否 数 f(x ) 在 区 间 xmin 委 xcSxmax 上 的 图 形 ， 


例 1 绘制 抛物 线 f(z)= zx 从 ~3 到 3 之 加 的 图 形 . 
Plot[x, | x， 本 3,3}] 


\、 | 


-3 = 卫 -1 | 1 2 3 
-raphice- 


这 里 跟 在 图 形 后 面 的 描述 ( - Graphics - ) 说 明 该 图 形 为 “图形 "(graphics) 对 繁 .可 以 在 
Plot 命令 的 右边 加 上 分 号 (;} 禁 止 显示 它 . 
可 以 在 辐 一 个 坐标 系 中 国 出 两 个 踢 数 的 图 形 . 
国 ”Plot[ |f[x],， 9[x]}，ix,， zmin，xmaxj} } 在 同一 坐标 系 中 绘制 消 数 f(x) 与 g(x) 在 区 
间 zin<x 所 xmax 上 的 图 形 . 这 条 合 令 目 然 可 以 推广 到 给 制 三 个 或 更 多 函数 图 形 的 
情形 . 
例 2 夯 出 函数 f(r)=z* 与 g(x)=9 一 x 在 -3 到 3 之 间 的 图 形 . 
Plot[{x:, 9- x |, {x, -3, 3)]: -注意 这 里 使 用 了 分 号 . 


- RS Mathematica 使 谓 指 南 


——— Tr 


和 如果 要 同时 显示 几 幅 图 形 时 , 特别 当 图 形 的 定义 区 间 不 同时 , Show 命 今 居 相当 有 用 的 . 
县 Show[ g1, = "| 在 同 - :个 坐标 邓 中 显示 几 幅 图 形 . 


例 3 很 设 希 沁 作 出 函数 y= xz* -9 在 区 间 [ ~4, 4] 上 的 图 形 和 函数 y = sin xz 在 区 间 [0， 
2x 上 的 图 形 ,并 且 要 把 它们 显示 在 同一 坐标 系 中 ,那么 进行 下 述 操作 ,定义 
g1 = BlLot[x -9, | x， 一 4|]; 


g2 = Plot[Sin[x], |x, 0, 2x|]: 


现在 可 以 应 用 Show 节令 ,注意 为 了 同时 显示 两 帐 图 形 ,坐标 轴 进 行 了 调整 ， 
Show[gl，92] ; 


可 匈 在 前 面 这 个 情 子 构造 gl 与 g2 的 过 程 中 , 每 茶 曲 线 都 首先 单独 显示 在 自己 的 坐标 系 
中 .为 了 禁止 输出 图 形 , 可 以 用 DisplayFunctien 选项 .DisplayFunction 指定 控制 图 形 输出 的 
函数 . 


"DigplayFunction ->Identity 楚 止 输出 图 形 . 
* DisplayFunction — $$DisplayFunction 恢复 显示 图 展 的 能 力 . 


例 4 gl=Plot[x -9, {x, - 4, 4|， DisplayFunction 一 Identity |; 
g2 = Plot[Sin[x], [x, 0, 2x), DisplayFunction —»1dentity]; 
Show[ gl, g2, DisplayFunction — $ DisplayFunction |; 


第 四 章 -给 图 形 -89 - 


一 一 一 一- 一 ——— ——— 一 一 -一 一 -一 一 一” 一 一 -一 一 一- CC 一 


只 显示 出 组 合 后 的 图 形 


纵 制 多 嚼 图 形 的 另外 一 个 实用 前 令 足 GraphicsAhrray. 

加 ”GraphicsArray[ {91，g2,，…|]] 绘 制 一 行 图 形 对 象 . 

加 ”GraphicsArray[ 1g11，g12,，… |，1g21，g22，…|}|}] 综 制 略 具 对 每 的 二 维 组 . 
注意 ”与 Plot 不 同 ,Graphicsarray 并 不 生成 图 形 对 党 . 畦 此 应 当 用 Show 查看 图 形 . 


例 5 gl 


g2 = Plot[ - x, {x, - 2, 2}, DisplayFunction —»I1dentity}; 


Plot[x, {x, -2, 2}, DisplayFunction >Identity |; 


g3 = Plotlx’, |x, ~2, 2}, DisplayFunction 一 Identity]; 
gq4 = Plot[ ~- x, {x, - 2, 21, DisplayFunction —1ldentity |; 
§ = GraphicsArray[ {gi1, g2, 93, g4)]; 

Show[g, DisplayFfunction — $ DisplayFunction|; 


gg = GraphicsArray[ (tg1i, g2}, 1y3, g4}}]; 
Showl gg, DisplayFunction 一 $ DisplayFunction|; 


Plot 盯 数 有 主攻 选 葬 ,输入 ?2 Plot 吸 者 Qptions[Plot] 左 可 以 看 到 它们 到 语 有 哪些 .这 
些 选 项 竹本 以 单独 使 用 , 也 可 以 组 合 在 一 起 使 用 .在 本 节余 下 部 分 介绍 共 中 相当 苗 用 的 一 些 选 
项 . 

由 上 Mathematicaf 显然 ) 不 可 能 绘制 无 穷 客 个 点 ,因此 它 选 取 有 限 个 等 嘻 点 作为 “采样 
点 ", 并 利用 自 适 应 算法 构造 出 一 条 看 起 来 光滑 的 曲线 . 它 所 使 用 的 最 大 点 数 用 PlotPoints 表 
水, 扇 省 信和 为 25, 如 果 曲 线 机 当 控 动 , 那么 就 必须 月 更 多 的 扎 . 


BO ， Mathematica 使 用 指 唐 


PlotPoints 一 n 指定 在 构 直 图形 的 过 程 中 ,所 使 用 的 采样 点 最 大 效 目 ， 
PlotRange 和 远 项 指定 在 图 形 中 许 包 舍 哪 些 点 . 
PlotRange 一 Automatic 为 Mathematica 的 缺 省 值 , 划 果 和 由 寺 某 些 点 的 纵 笃 标 术 大 ， 
而 导致 图 形 可 能 不 太 令 人 入 满 营 叶 {根据 Mathematica 标准 ), 会 自动 从 图 形 中 删 陈 它 
们 . 
* PlotRange—>All 强 刀 Mathematica 好 出 所 有 和 的 点 ， 
PlotRange 一 [ymin，Yymaxj 只 国 出 维 举 标 分 于 yrwin 与 ymax 之 则 的 那些 点 . 


FLotRBange 一 | {xzmin，xmax|，|Ynin， ymax}| 画 出 檬 役 标 介 十 xmin 与 xmax 之 村, 纵 
华 标 介 丁 ymin 与 ymax 之 间 的 点 . 


例 6 Piot[z, fx, -1i0, 10}];Plot[x?, {x, - 10, 10}, FlotRange —=All]; 


Lab 


在 作 图 时 , 你 会 注意 到 横 轴 与 纵 轴 通常 杀 用 不 同 长 度 .默认 情况 下 纵 轴 长 度 与 横 轴 长 度 比 
率 为 1/GoldenRatio, 其 中 GoldenRatie = (1 +vS)/2.,Mathematica 的 设计 人 员 兴 为 这 个 比 
率 是 最 好 看 的 . 可 以 通过 选项 AspectRatio 改变 这 种 方式 ， 该 选项 定义 图 形 的 高 宽 比 率 . 

。 AspectRatio >Automatic 利用 图 形 的 实际 坐标 轴 计 算 四 观 比 率 . 
"AspectRatin 一 比率 把 缴 轴 与 模 碍 的 比率 取 为 指定 的 比率 值 . 


例 ? Blot[x, ix, -5,5!]; 


Plot[x’, {x, -5, 5|, AspectRatio —=Automatic]; 


| 两 个 业 标 
轴 的 族 寺 
信 数 相同 . 


一 此 一 县 祷 生 


例 8 下 面 的 命令 应 当 生 成 一 个 圆心 在 原点 的 半径 为 3 的 圆 .但 是 由 二 两 个 坐标 轴 的 放 缩 倍 
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数 不 同 , 从 而 使 得 图 形 显 沙 为 椭 图 . 
Plot[| - Sqrt[9- x*], Sgrt[9 -x ]}, fx, ~ 3, 3}]; 


Gay 通过 设 兽 hspectRatio—*hutomat ic 使 得 上 面 的 圆 显示 的 更 像 一 个 回 . 
Flot[|- Sgrt[9- x ], Sgrt[9 -x ]}, {fx, -3, 3},AspectRatio —Automaticl}; 


本 


个 人 


] 


-之 -1 1 入 -上 


在 绽 制 图 形 的 时 候 , Mathematica 要 确定 原点 的 位 置 . 如果 (0, 0) 在 绘图 区 域 的 内 部 , 那 
么 坐标 轴 就 在 该 点 相交 . 否则, 利用 一 个 算法 确定 坐标 轴 应 举 在 何 处 相交 .在 有 些 情 形 中 , 这 可 
能 会 使 函数 的 显示 令 人 混 消 (甚至 误导 ) ,选项 hxes0rigin 可 以 控制 坐标 轴 交 点 的 位 这. 
BxesOrigin 十 一 个 二 维 的 图 形 选 项 , 它 确定 坐标 绸 的 交点 . 


+ AxesOrigin 一 Automatic 为 村 认 值 .如 条 点 人 0,0) 位 于 经 图 区 域内 ,或 者 给 近 这 个 区 
域 , 那么 道 常 就 取 该 点 为 堂 标 轴 交 点 ， 


Rxesorigin 一 ix,，Y¥! 强迫 坐标 轴 交 于 (xz，Y) 点 ， 


例 9 Plot[5+x, fx, 1, 2}1]; 


! 坐标 转交 于 {1, 66) 点。 然而 从 
也 


x -的 图 形 被 完整 
二 _ 


Plot[5+ x, {x, 1, 2}, AxesOrigin 一 10, 0|]; 


，g92 ， 


ktatliemmatics 使 用 指 圭 


一 一 一 一 一 一 "一 


2 
| 
lB 
了 由! 
12， 一 


-= 一 


1 2 2 1.4 1.6 1. 日 2 


现在 坐标 输 交 十 (0, 0) 点 ,但 只 有 对 应 于 指定 区 域 的 坐标 轴 部 分 被 画 出 来 .可 以 用 Plo- 
tRange 很 容易 地 解决 这 个 可 题 . 


Blot[5+ x, ix, 1, 2), AxesOrigin {0, 1, PlotRange 一 | 10，21，10，251 1， 


OT 
人 D200.GO.TS 1 11,29 1 .与 1 ,735 全 
利用 Pletstyle 可 以 改变 图 形 的 外 邓 . 当 芷 同 -- 尝 标 系 中 同时 绽 制 儿 幅 图 形 的 时 修 , 这 个 
选项 是 相当 有 用 的 ,该 选 现 的 形式 为 
* PlotStyle 一 样式 如 果 只 使 用 一 个 样式 时 ,就 条 用 这 种 方式 . 
。 PlotStyle 一 | 样式 1， 样式 2，…} 如 果 和 希望 使 用 几 种 样式 时 , 就 采用 这 种 方式 .如 
果 要 和 做 改 的 图 形 不 只 是 一 幅 , 那么 样式 循环 作用 到 它们 上 面 . 
下 面 列 出 - * 些 相当 常用 的 给 图 样式 ， 
*。 GrayLevel[x], 其 中 人 0 所 zxz 记 1, 改变 图 像 的 颜色 深浅 ,x 的 值 越 洁 近 1, 图 像 的 颜色 就 
训 浅 . 


例 10 Plot(!Sin[x], Sin[2x], Sin{ 3x]|}, |x, - nx, x}, 
PlotStyle + {GrayLevel[0.0], GrayLeveli[0.5], GrayLevelld .8]}]; 


* Dashing[ jcrt，rz2，…，zm 站 定义 曲线 的 虚线 方式 ,这 里 的 参数 值 表 冰 循环 绘制 线段 
与 空白 时 的 长 度 倩 .每 个 > 值 都 表示 占 图 形 总 宽 的 百分比 . 

* RbsoluteDashing[al，a2，…，a 台 | 定义 曲线 的 虚线 方式 ,这 电 的 参数 全 表示 循环 绘 
制 线 段 与 空 魏 时 的 鲍 对 长 度 .每 个 绝对 长 诬 都 以 打印 机 点 (近似 为 1 英寸 的 1772) 
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为 单位 . 


例 11 Plot[ {x:, 2x:, 3x}, {x, -3, 3}, Plotstyle —* {Dashing[1.01}], 
Dashing[ {1.03} ], Dashing[{.03,.1|}1}] 


， ”Thickness[z] 指 定 图 形 绘 制 的 宽度 .这 里 的 宽度 > 为 图 形 总 宽 吉 的 日 分 比 . 二 维 
图 形 的 点 认 值 是 0.004. 

。 AbsoluteThickness[d] 指 定 图 形 绘制 的 绝对 宽度 d .绝对 长 度 以 打印 机 点 (近似 为 1 
英寸 的 1772) 为 单位 ， 


例 12 Plot[ fx:, 2x°, 3 }, {x, - 3，31，BPlotStyle — {Thickness[.005], 
Thicknass[ .011, Thickness[ .02] 1]; 


有 几 个 图 形 渤 项 可 以 使 用 彩色 给 制图 形 ， 

*。 Hue[ 色 调 ] 指定 一 个 遍 色 . 当 色 调 值 从 0 变 到 1 时 ,对 应 的 颜色 遇 凡 红色 、 芮 色 、 绿 
色 .青色 . 蓝 色 .紫红 色 , 并 再 次 回 到 红色 . 

。 ”Hue[ 色 调 , 饱和 度 ， 明 亮度 ] 用 色调 .饱和 雇 以 及 明亮 度 一 起 表示 颜色 .饱和 度 与 肖 
亮度 的 值 必须 介 于 0 到 1 之 间 . 

。 ”RGBCcolor[ 红 ， 绿 ， 蓝 ] 指定 由 红 ., 绿 、 晓 的 泥 合 而 得 到 的 特定 颜色 . 红 ., 绿 、 吃 的 值 必 
须 介 于 0 到 1 之 间 . RGB11, 0, 0' 生 成 纯 红色 结果 ;相应 地 RGBColor[0，1, 0] 生 成 
纯 绿 色 , RGBColor[0,，0,，1] 生 成 纯 蓝 色 ， 

“CMYKColor[ 青 ,紫红 , 黄 , 黑 ] 指定 由 青 、 繁 红 、 黄 ,四 的 浪 合 而 得 到 的 将 定 羚 色 . 痛 、 
紫红 、 黄 . 湿 的 值 必 须 介 于 0 到 1 之 间 ,CMYEKColoer 居 用 十 打印 到 纸张 的 颜色 . 


例 13 Plot [ix:, 2x, 3x°}, {x, -3, 3}, PlotStyle — {RGBColor[1, 0, 0]， 
RGBColor[0, 1, 0], ReBColor[0, 0, 1]}}; 


(4 ， Mathematta 使 用 指责 


这 里 x,2x, 3x 的 图 像 分 列 显 示 为 
红色 ,绿色 和 监 色 . 


在 Mathematica 中 可 以 非常 容易 地 计算 各 和 颜色 的 RGB 值 .只 要 进入 Input 一 Coler Se- 
lector, 并 点 击 所 和 希望 的 颜色 ,号 可 以 达到 目的 . 选 定 颜色 的 精确 RGB 值 组 全 就 会 插入 到 
Mathematica 笔记 本 的 插入 点 所 处 的 位 置 . 


mamlml SIH 
mss | | 
mn lr J Wl es Wl 
-ITT 
二 
TTT 


"TTITITITTOQG 
名 害 晤 本 交加 区区 


i Ly 


微 视 上 的 颜色 选择 窗口 


Originatl: | | 
New: | ] 


Crayon Picker ul 


HLS Picker 


= “Wm 下 
上 上 村 
| 


saturation: [0 | % 
Value; % 


D0 30 100 


Macintosh 机 上 的 颜色 选择 窗口 
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一 一 -一 


一 一 —— 


A 


软件 包 Graphics Colors* 中 包含 一 组 预先 定义 的 颜色 .在 上 载 了 该 软件 包车 输入 Al1- 
Colers 就 可 以 查看 到 所 有 颜色 的 名 称 列 表 . 一 瑟 选 定 厂 -和 神 颜 色 , 就 可 以 在 RGBColer 指定 颜 


色 的 地 方 下 接 使 用 该 着 色 的 名 称 .如果 要 查看 它 对 应 的 RGB 公式 ,只 要 输入 颜色 的 名 称 就 可 
以 了 . 


例 14 祥 Graphics-~Ccolors- 
AliceBlue 
ROBColorl 0.,941206, 0.972503, 1,| 


用 两 种 选项 可 以 用 来 给 图 形 加 标签 .其 中 PlotLabel 指定 图 形 的 整体 标签 ,而 MxesLabel 
可 以 给 一 个 或 两 个 学 标 输 加 上 各 自 的 适当 描述 性 标签 ， 
* PlotLabel 一 描述 给 图 形 加 上 标题 性 标签. 
” ”axresLabel 一 标签 用 为 ， 轴 指定 标签 . 
”AxesLabel 一 | x 轴 标 签 ，” 轴 标 签 ] 指定 x 轴 与 y 轴 的 标签 . 
* AxesLabel 一 None 指定 不 给 坐标 轴 加 标签 .这 是 Mathematica 的 默认 值 . 


上 睾 的 描述 ,标签 、x 轴 标 签 忆 及 y 轴 标 签 可 以 是 任意 的 Mathematica 符号 或 字符 串 { 妈 
包围 在 双 引 导 内 的 交 本 }) .如果 同 时 使 用 PlotLabel 和 AxesLabel, 就 必须 仔细 一 些 , 以 防 标签 
互相 妖 营 . 


例 15 Plot[Sinfx], {x, 0, 27), 


AresLabel->i Values of x, "Values of sin x }]; 


sinx 和 性 


PlotLegend 是 一 个 给 图 形 加 标 和 葡 的 相 尝 有 用 的 选项 . 然 布 , 它 是 包含 在 软件 包 {rraphics ~ 
Legend ~ 中 的 ,因此 如 东 要 使 用 该 逸 项 , 必须 元 上 我 这 个 软件 包 ， 
”BFLotLegend[ | 文本 1, 文本 2,，…|] 给 Plotstyle 中 指定 的 每 个 描述 附加 上 文本 1， 


文本 2,… .如 条 PlotStyle 中 的 描述 数目 多 于 文本 描述 , 那么 文本 描述 按 循 环 方式 
香 复 使 用 . 


例 16 < 过 Graphics ~ Legend ~ 
Flot[{x’, 2x:, 3x:], {x, - 3, 3}, Plotstyle— |Dashing[ |.011]， 
Dashing[{.03|], Dashing[{.03, .08|]!, PlotLegend — {x:, 2x, 3x |}] 
如 果 必 要 的 话 , 可 以 用 箱 形 框 包 图 起 图 形 . 另 外, 也 可 以 不 最 示 -- 个 或 两 个 半 标 轴 . 
Frame 措 定 是 否 应 在 图 形 四 局 加 下方 奏 . 
， Frame -一 True 指定 仕 图 形 的 巾 周 加 上 一 个 短 形 方 框 . 
。 ”Frame 一 False 指 完 木 在 图 形 的 四 周 加 上 一 个 矩形 方 框 (默认 值 ). 


* 出 石 。 


Msrhematica 使用 指向 


Axes 确定 尽 否 庙 画 出 扒 慰 轴 . 


。 Axes 一 True 指定 要 男 出 两 个 半 标 轴 ( 默 认 信 ). 
。 Axes 一 False 十 夯 出 坐标 轴 . 

* Mres 一 [|False，Truej 本 出 vy 畏 但 不 男 出 z 轴 . 
Axes 一 |Yrue，False] 加 出 x 轴 但 不 画 出 » 轴 . 


例 17 Plot[ 7， {x, -3, 3|, Frame —True, Axes 一 False]; 
i 
0.8 | 
0.6 
0 .4 
0 ,2 ~ 
" 3 己 1 由 l 之 3 


SridLines 指定 人 在 图 形 中 绽 制 定形 网 格 . 
。 GridLines 一 Hone 不 经 制 了 网 客 线 ( 默 认 值 )， 
* GridLines 一 Automatic 经 制 网 格 线 , 位 置 由 Mathematica 确定 . 
。 GridLines 一 jx 列表 ，y 列表 | 要求 网 格 线 出 现在 指定 的 位 警 上 . 这 里 的 列表 分 别 
为 一 组 数 或 者 为 automatic, 对 于 后 者 ,表示 由 Mathematics 确定 网 格 线 的 位 置 . 


例 18 在 终 制 三 角 藉 数 的 图 形 时 , 把 竖 直 格 线 放 在 m2 的 倍数 处 是 非常 方便 的 ， 
BlLet|lSin[xj，|x，0，25|，GridLines 一 | {0, rz/2, 7n, 3n/2, 2n}, Automatic}|: 


第 加 草 .- 维 图 形 -7 ， 


在 付 慰 轴 上 的 亨 度 线 以 及 标记 可 以 用 选项 Ticks 控制 . 当 Frame 一 True 被 设置 时 , Fram- 
eTicks 提供 在 碟 形 框 边界 虐 燃 似 的 选项 控制 . 
"Ticks 一 Hone 折 定 个 画 出 刻度 线 , 也 趟 显示 数字 标记 . 
"Ticks Automatic 指定 力 出 刻度 线 .这 是 对 认 恒 . 


”Ticks 一 { x 列表 ，Yy 列表 | 要 求 在 指定 位 加 处 副 出 刻度 线 , 这 里 的 列表 分 别 为 一 组 
数 或 者 为 Butomatic. 


例 19 下 座 足 绘制 y=- 污 了 网 形 的 三 神 方法 . 
_ 
Plet [一 + 1 ix, 3 31]; 


2 
Plot[ 一 一 ， {x,， -- 3， 31, Ticks 一 Jone] ; 
到 二 工 


2 
x 


x +1 


Pilot 


[xz，- 3，31，Ticks 一 人 - 3，31，Ruteomatiel ] ， 


FilledPlot 命令 绘制 加 阴影 的 图 形 ,这 菜 合 令 在 软件 包 Graphics -FilledPliot - 中 ,因此 
必须 先 上 载 这 个 软件 包 才 能 使 用 该 命令 . 
"FilledPlot[f[x]， {x，xmin，xmaxj | 加 出 f[x] 的 图 形 , 并 给 由 丘 数 与 x 轴 围 成 的 
区 域 卯 二 阴影 . 
4 了 illedPlottifltx]，F2[x]，…|，{x，xmin，xmaxl] 男 出 f1[x],f2[x],… 的 图 形 ， 
并 给 由 相 邻 留 带 赎 成 的 区 域 姑 上 不 同 颜色 的 明 影 . 


例 20 < 扩 Graphics ~ FilledPlot-、 
FilledPlct[1 ~ x, {x, -1, 1;]; 
FilledPlot[ {1- x:, 2- 2x |, ‘x, -1, 1}]: 
FilledPlot[11- x, 2- 2x, 3- 3x], {x, -1, 11]; 
任何 标准 的 图 形 选 项 都 可 以 用 在 FilledPlot 中 .另外 ， 
， Fills 一 [填充 样式 1， 填 充 样 式 2，…} 指定 相 郭 曲线 由 填充 样式 1, 填充 样式 
2,… 盾 充 . 


Mathematica 使 用 指 南 


例 21 Graphics ~ FilledPlot~ 
FilledPlot[11- 2- 2x, 3- 3x}, {x, -1, 1}, 
Fills — GrayLevel[.8], Graybevel[.6], Graybeval[ .3]|]; 


习题 解答 


4,1 男 出 函数 y= xe “在 z+=0 与 x = 5 之 癌 的 图 形 . 
解 ( 滞 
Plot[x Exp[ - x], {x, 0, 5}]; 


4,2 画 出 函数 f(z) =|1 一 |x | 在 区 闸 [ -3，3] 上 的 图 形 . 


一 一 一 一- 一- - 


解 EE 
Piot[Abs[1 - Abs[x]], {x, - 3, 3}]; 


4.3 在 概率 统计 中 标准 的 止 态 曲线 束 居 也 数 
f(x) = 二 


2 
的 图 形 . 男 出 这 个 函数 在 -3 所 x 访 3 上 的 图 形 . 
解 ”E 和 


f[x ] = 1/lSqrt[2 x Pi]) * Exp[f(- 1/2)x "2]; 


1 
或 者 fx -] = pl 2; 


Plot[f[x], {x, - 3, 31}; 


4.4 在 同一 个 坐标 条 中国 出 肾 数 y= snzryy =2sin 7 与 v=3 sn zz 从 一 27 到 27 的 图 形 . 
解 性 


Plot|[ [Sin[x|, 2Sin[x], 3Sin[x||, {x, - 2x, 2r! |]; 


vi 


4.5 友 哨 数 的 图 形 与 原 滞 数 的 图 形 关 十 直线 y= 工 是 对 称 的 .用 实 线 男 出 互 为 反 函 数 的 消 数 


"0 


kfathematica 恒 用 指南 


vv 一 一 一 一 一 一 


fr) = 与 六 (xz) =Yx,0 和 x 安 1 的 图 形 ,而 用 虚线 画 出 y=x 的 图 形 , 以 观察 对 

称 性 . 

解 下 

gl1 = Plot[x*, {x, 0, 21,DisplayFunction 一 Identity |; 

g2 = Plot[yx, {x, 0, 4},DisplayFunction 一 Identity]; 

g3 = Plot[x, {x, 0, 4},PlorStyle 一 Dashing[ {0.01}], DisplayFunction 一 Identi- 
ty]; 


Show | gl, 9g2, 9g3, AspectRatio — Automatic, DispalyFunction 一 $Display- 


Function|; 


4. 在 同一 个 从 标 系 中 男 出 Y 二 了 4 二 一 x， ?9 二 rr sin10r ,在 区 间 -2rsysfr 上 的 图 


4.7 


形 ,并 用 第 形 框 包围 起 来 . 
解 上 


Plot[ {x:, -x:, x Sin[10x]), {x, - 2x,2x}, Frame 一 True]; 


在 逼近 论 和 数值 分 析 中 经 种 用 到 切 比 雪 去 多 项 式 族 . 世 Mathematicea 中 这 些 包 项 式 的 囊 
示 为 ChebyshevT[n，x] .在 同一 个 坐标 系 中 ,利用 不 同 的 方 深 区 别 开 各 条 曲线 , 画 出 次 数 
分 别 为 2, 3, 4 的 切 比 雪夫 多 项 式 的 图 形 , 并 加 上 标签 . 
解 “4 
Craphics™ Legqend ~ 
Plot [ {Chebyshevt'2, x|, Chebyshevt[3, x], ChebyshevT[4, x||, 

{x, -2, 2}, PlotStyle {GrayLevel[0|], GrayLevell .4], 

GrayLevel[,7]|, PlotLegend 一 [1T2，T3，T4 | ] ; 
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一 一 一 一 -一 一 一 -一 一 一 -一 一 一 一 一 一 -一 一 一 一 一 -二 一 一 一- 一 一 -一 一 一 -一 一 一 一 一 -一 -一 一 — 


态 外 的 解答 
Graphics “ Legend- 
Plot | [ChebyshevT[2, x|, ChebyshevT[3, x|, ChebyshevT[4, x]|, 
{x, -2, 2}, PlotStyle —*|RGBColor[1i, 0, 0}, RGBColorf0O, 1, 0], 
RGBColor [0, 0, 1]}|, PlotLegend — |T2, T3, T4}]; 
彩色 图 形 不 显示 


4.8 ”在 问 一 个 坐标 系 中 男 出 y=1+sinr,0 和 X22 y=21+8n 7,2r 人 7 了 4r y= 二 3+ 


sn 荆 ,4rSrs6r 的 图 形 . 


和 解 区 

gl = Plot[i + Sin[x], {x, 0, 2x}, DisplayFunction ldentity]; 
Q2 = Plot[l2 + Sin[x|, {x, 2r, 4dr!l, DisplayFunction 一 了 dentity ] ; 
yg3 = Plot[3+ Sinlx], {x, 4x, Snr},DisplayFunction 一 Tdentity] ; 


Show[g1, g2, 9g3, DisplayFunction ~ $ DisplayFunction]; 
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4.2 其 它 的 绘图 命令 


标准 的 几何 形状 可 以 用 8raphics 命令 进行 构造 , 并 用 Shew 命令 查看 . 
茹 Graphics[ 基 本 单元 ] 利 妆 图形 基 本 单元 构造 一 帆 图 形 . 
下 面 列 出 的 是 在 Mathematica 中 比 裕 带 用 的 几 个 图 形 基 本 单元 ， 


Cirele[ [x，Y}，r51 创建 一 个 阅 , 圆心 在 (x，7) 处 ,半径 为 r. 

Disk[ |x，Y},，r] 创建 一 个 圆 蕉 ( 即 被 填充 的 圆 ), 圆心 在 4x， 玖 , 半 征 为 
Point[ |x， YY|] 在 坐标 (x, 处 加 一 个 点 . 

Line[ ix1，Y1]，{x2，y2}，…]] 绘制 连接 (x1，y1), (xz2，y72),… 年 点 的 线段， 
Rectangle[ [x1，y¥1i}，{x2， Y211 创建 一 个 被 填充 的 窍 形 , 其 中 (x1l, y1) 与 (x2，Y¥2) 
为 听 构造 害 形 的 对 前 线 两 个 端点 . 


101， 


- [02 ， Mathematica 全 用 指南 


* Bolygon[ ixl, yl1|，{x2，¥y2j,，…1] 构 得 一 个 被 填充 的 和 多边形 , (xl1，y1), (x2， 
Y2),… 等 为 顶点 . 
。 Text[ 文 本 字符 串 ，[x， yj] 在 (x， 习 位 置 上 屁 示 文本 字符 中 
当 用 show 查看 图 形 对 和 象 时 , axes 的 默认 值 为 axes 一 False. 如 果 必 要 竟 话 ,可 以 在 选项 中 
全 全 Maxes 一 True 以 显示 坐标 轴 . 


例 22 gl = Graphics[ecircle[10 0 1]]; 
92 = Graphics[Line[{{ -1, 一 1 ~ 1}, 和 11, {1, -1}, {-1, -11}]]; 
g3 = Graphics[ Polygon[ | | -1, 人 0], 10, 二 ， {1, 各 | ， 站， -1111]; 
Show[ gi, g2, 9g3, AspectRatio Automatic]}: 


1 


有 了 时候 曲 线 的 定义 来 用 的 是 参数 形式 , 即 点 的 x 与 y 坐标 定义 为 美 十 第 三 个 变量 章 两 个 
独立 函数 ,参数 曲线 通常 比较 复杂 ,可 以 用 FParametricPlot 查看 其 形状 ， 
加 ParametricPlot[|x[t],， y[tl}， ft，tmin, tmaxj] 在 区 间 tmzinsst<s tmax 上 加 出 优 
数 方 程 x = x(1),y = y(t) 的 图 形 、 
国 ParametricPlot[{{x[t], y[tl}, {x2[t], vy2[t]},…|, {t,tnin，tmaxj] 在 这 间 
tminsstsstmax 上 茵 下 儿 亲 人 参数 方程 的 图 形 . 


例 23 ParametricPlot[ |t; - 2t, t:—-t}, ft, -2, 211]， 


例 24 x[t_] =Cos[t] - Cos[100t] Sinft]; 
ylt _]=2 Sinft]- sin[100t]; 
ParametricPlot[ :x[ +}, Y[ 七 ] | ， |t， 0, 2x}1, PFlotPoints 一 5 ] ; 
隐 却 函数 的 图 形 可 以 用 InplicitPlet 命令 纤 制 .由 于 这 条 命令 包含 在 软件 包 Graphies 
~“ ImpliecitPlot "中 ,因此 在 使 用 前 必须 上 载 这 个 软件 包 . 
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旺 ”InplicitBlot| 方 程 ，|x，xmin，xmax| ] 4 当 xx 的 信人 从 xmin 变色 xmax 时 三 释 的 图 
形 . 对 于 x 的 每 信 值 ,计算 出 了 的 值 , 并 画册 所 得 到 的 几 人 点 (x，y). 

盏 。 ImplicitPlot[ 方 程 ，|x,， xmin，xmax|，|y，ymin，Yynax|] ] 在 终 制 方程 图 形 时 ,认为 它 
是 三 锥 空间 中 的 国 数 ,通过 用 z 等 于 夫 的 平面 与 其 二 维 疼 形 相 交 得 到 所 定义 的 二 维 
曲 比 . 这 种 方法 速度 快 ,性 可 能 得 到 比较 粗 烷 的 图 形 ,特别 居 在 久 形 的 凋 异 点 或 变 点 
处 表现 得 更 突出 . 

厅 ImplicitBlot[ 方 程 ，|x，xmin，x1，x2，…，xmaxj|] 辑 山 方程 除 x1，x2，… 等 点 外 所 
冠 多 的 图 形 , 央 为 这 些 点 有 可 能 导 臻 国 烦 ， 

上 面 所 指 的 方程 必须 是 lhs == rzrhs 的 形式 .注意 中 间 用 的 双 等 号 . 

由 于 需要 太 基 的 计算 ,因此 ImplicitPlot 为 了 “ 画 出 图 形 , 会 花费 一 些 时 间 . 命令 的 第 一 种 

形式 ( 即 轮 孵 方 法 ) 速 度 要 快 些 ， 


例 25 加 出 方程 x ?y= {y+ 1(4 一 y) 在 10 所 xz 所 10 时 定义 的 曲线 , {这 条 曲线 称 为 
Nicomedes 是 线 . ) 
‘< Graphics ”ImplicitPlot ~ 
ImplicitPlot [x:y == (YY+114 一 天)， .x -10, 10}, 
PlotRange —*AM1l |; 


例 26 画 出 方程 xz? + y=6xy 在 -4 所 rf 过 4 时 的 图 形 .( 这 条 曲线 称 为 币 卡 儿 叶 形 线 ,) 
Craphics” ImplicitPlot ~ 
ImplicitPlot[x +y == 6xYy, [fx ~ 4, 4)]; 
| 


| 
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在 下 面 这 个 例子 中 , 我 们 必须 使 用 轮廓 方法 ,因为 ImplicitPlot 不 能 求解 包 合 超 直 图 狂 
的 方程 . 为 此 , 我 们 需要 除 指定 z 的 区 间 外 , 还 要 指定 y 的 区 间 . 


例 27 画册 ces(zr 一 yy) 一 ysn Ti 一 2 了 TS 的 图 形 ， 
‘Graphics™ InplicitPlot ~ 
ImplicitPlot[Cos[x— ¥y] == ¥ Sin[x], {x, -2,2}],AxesOrigin 一 [0，0j]; 
Solve: :tdep: The equations appear to involve transceddental 


functions of the variables in an essentially non-Aalgebralc way. 
(给 定 的 方程 中 包含 超越 函数 , 其 中 的 变 盖 以 非 代数 方式 出现 .) 


ImplicitPlot. .epfail; 


Coslx—Y] == vySin[x| could not be sclved for Peints to plot. 
(不 能 从 方程 Cosfx 一 vy] == y Sin[x|] 中 人 和解 测 画图 的 点 .】 
ImplicitPlot[Cosix- ¥) == y Sin[x], {x, - 2, 2|}, ‘y, -2, 2}, 


AxesOrigin 一 人 0， ] ; 


= 
\ 
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对 于 四 极 笃 标定 区 的 曲线 ,可 以 用 软件 包 Graphics Graphics - 中 的 PolarPlot 命令 给 制 
其 图 形 . 


"PolarPlot[f[68]，{6，8min，6max|}] 团 出 宜人 举 标 方程 >= 了 (8) 自从 Bmin 要 到 
gmax 时 的 图 形 . 


一 
~ 


* PolarPlot[{£1[8],f£2[8], 
j, 198，9min，#max|] 在 同 
一 个 坐标 系 中 国内 几 个 极 举 
标 方 程 的 图 形 . 
注意 ”对 ]* PolarPlot, 默认 外 观 比 
又 为 hspectRatio— Mtomatic. 


例 28 < 所 Graphics、 Graphics、 
PolarPlot[3 {1 - Cos[8]), 10 

-2 0, 2x} ]; 

(这 条 曲线 称 为 心脏 线 . ) 
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例 29 在 单位 圆 *=1 内 断 出 二 时 玫瑰 线 >=sin 38 的 图 形 ， 
raphics ”~ Graphics ~ 
PolarPlot[ ii, Sin[381), 19, 0, 28}1]; 
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题解 容 


4.9 ”器 出 抛物 线 y= x * -9 以 及 六 径 为 3, 圆心 在 原点 的 圆 的 图 形 . 
解 上 
dl = Plot[ x’ - 9， |x，~ 和， 4|， DisplayFunction 1dentity |; 
q2 = Graphics[Circle[ 10, 0}, 3]]; 
g3 = Graphics[ Text|[ CIRCLE IN A PARABOLA’, {0, 611]; 
Show [gl, g2, g3, AspectRatio Automatic, 


DisplayFunction 一 $ DisplayFunction|; 


| 


| CIRCLE EN APARABOLA| 


: | 
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4.10 ” 当 国 沿 直 线 深 动 时 , 国 上 一 点 形成 的 扫 迹 杯 为 旋 轮 线 或 摆 线 , 其 参数 方程 为 x = 
rising), y= rt 1 一 cos0), 其 中 zx 表示 辣 的 羊 径 , 种 出 当 贺 的 半径 为 1 时 所 形成 的 
诈 轮 线 的 由 拱 . 
解 ”# 
ParametricPlot[ {0 - sin[8], 1-Cos[6]}, {18, 0, gr!, 
AspactRatio —>Automatic |; 


9 i110 15 总 有 25 


4.11 设 P 为 距离 半径 为 的 圆 的 圆心 距离 为 a 的 点 .( 不 妨 想像 该 点 为 自行 车 轮 辐 条 上 的 
一 点 .) 当 网 沿 蕊 线 深 动 时 , P 点 形成 的 轨迹 称 为 次 摆 线 . 它 的 参数 方程 为 = 了 一 
a sing, y= 一 a cos8. 国 出 玫 = 1 a =112 盾 深 提起 的 四 个 同期. 如果 =1, a =2， 
即 点 人 福 贺 外 区 时 , 光 慢 乱 的 形状 又 是 怎样 的 呢 ? 
解 EE 
r=1; 
a= 1/2; 
ParametricPlot[ {zr - agSin[B]ir-acos[fh]i， 10,0,8x|, 
AxesOrigqin —*|0, 0}, PlotRange >{ {0, Bx}, {0, 1.5}1]; 
1.4 A f ~ / \ 
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a=} 
ParametricPlot[ {rg -a sinlG]r - acos[f]}, {9, 0, Br}, 
RxesOrigin —=|0, 0}]; 


| 会 /\ | | 


1 由 


/ 
| 


4.12 半 从 为 已 的 图 在 半年 为 a 的 大 加 内 边 上 深 动 ,初始 位 置 为 (a, 0) 的 固定 点 所 形成 的 轨 
迹 称 为 加 内 旋 轮 线 或 内 提 线 ,其 方程 为 


第 四 章 二 维 图 形 - 107。 


GC 一 一 -一 一 


ta Co— Bcosg + bcos “二 | 


二 一 
y= tab)sind —# sin| 4 5 bg | 
画 出 当 w=1, 六 4 以 及 ea=8,5=5S 时 的 内 摆 线 ， 


解 5 
x[8 _ |]:= (a-b) tos[0] + btos[(a - bb] 
y[f ]:=(a-b) Sin[] -bsin[ta ~ b)6oAb] 
已 =4; 


b=1; 
ParametricPlot[ [xd], vy[8]}, 18, 0, 27!, AspectRatio >Autonatic]; 


a=8; 
b=5; 
ParametricPlot[ {x[0],vy[8]}, {0, 0, 10r},AspectRatio —>Automatic]; 


4.13 男 出 由 方程 六 = x (2 一 x7) ,0 过 7 起 2 定义 的 基线 的 图 形 . 
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解 8 于 
Graphics ~ InplicitPlot ~ 
ImplicitPlot[y ==x {2 - x), lx, 0, 2}]; 


4.14 国 出 Tschirnhauser 三 次 曲线 v= x +31:, 一 3 和 天 委 3 的 图 形 . 
解 
Graphics" InplicitPlot~ 
ImplicitPlot[Yy == ww +3x, {x, ~- 3, 31]; 


4,15 极 侣 标 方程 r=8 定义 的 曲线 称 为 阿 基 米 德 (Archimedes) 螺 线 . 画 出 山 线 当 0 护 9 所 10n 
以 及 一 10x 志 8 所 10x 时 的 图 形 . 
解 # 
< Craphics ”~ Graphics ”~ 
PolarPlot[8, {8, 0, 10r} 1}; 


应 上 0 章 二 维 图 花 


A 


PolarPlotiH, {1H, - ir, 10n]}; 


4.16 方程 r= sin n8 定义 的 极 笃 标 曲线 称 为 玫瑰 线 , 其 中 为 正 牧 数 , 研究 这 族 曲 线 的 形 

状 , 并 猜测 稍 环 的 数目 与 w 的 关系 . 

解 于 

Graphics“ Graphics ~ 

gl = PolarPlot|sin[28], {8, 0, 2x|, Ticks ->*False, 
PlotLabel 一 人 了 = 2, DisplayFunction 一 Identity]; 

g2 = PolarPlot[Sin[38], {8, 0, 2n|, Ticks False, 
PlotLabhel —n = 3, DisplayFunction—*1ldentity |; 

g3= PolarPlot[lSin[48], 8, D0, 27}, Ticks False, 
PlotLabel 一 = 4, DisplayFunction -一 IdentitYy]: 

gd = PolarPlot[Sin[S58], {8, 0, 2nx1, Ticks FAaAlse, 
PlotLabel 一 = 5°, DisplayFunction 一 IdentitY |; 

g = GraphicsArray[ [|g1l, g2}, {fg3, g411]; 

Showlg, DisplayFunction > $ DisplayFunction|; 


| 
结论 ”如果 nn 为 牵 数 ,表现 线 有 寺 叶 ;如 宁 为 偶数 ,玫瑰 线 会 有 2x 叶 . 
4.17 在 同一 坐标 系 中 画 出 心脏 线 xy = 1 - cosf 以 及 半径 ; =1 的 圆 . 


和 解 # 王 


Graphics” Graphics ~ 
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PolarPlot[|1 - Cos[8], 11, {8, 0, 2n!]; 


4.3 ”特殊 的 二 维 绘 图 函数 
所 请 离散 函数 ,就 是 定 疼 在 离散 点 集 上 的 函数 ,可 以 用 特殊 的 给 图 函数 ListPlot 查看 其 


国 ”ListPlot[ yl1，¥2，…]}] 绘制 点 ,其 坐标 为 y1，Y2，…, 而 之 坐标 则 是 下 整数 1， 
2， 站 
图 ListPlot[ |ixi1, ¥1|， {x2 ， Y2 |， … |}] 纵 制 成 (xl， Yl}, (x2, Y2 )， “"*. 


在 这 个 肾 数 中 可 以 使 用 标准 的 图 形 选 项 , 从 而 命令 的 形式 为 

国 ”ListPlot[1yl1，y2，…}， 选 项 ] 

加 ListPlot[ {fx1i, yl}，{x2, Y2]，…|1， 选项 ] 

在 ListPlet 中 最 帝 用 的 图 形 选项 有 

* Plotstyle —PointSize|d|. 这 里 4d 指定 点 的 直 征 ， 它 表示 相 矶 于 图 形 宽 度 的 日 分 
比 , 上 默认 值 为 . 008. 

* PlotStyle —*AbsolutePointSize[d]. 这 里 d 表示 点 的 绝对 表 径 , 它 以 打印 机 点 为 单 
位 ,一 点 约 为 一 交配 的 1/72， 

* PlotJoined >True 把 点 连接 起 来 . 


例 309 下 面 的 绘图 命令 画 出 从 1 到 20 的 连续 下 整数 的 平方 . 
squares = Table[k, {k, 1, 201]; 
ListPlot[ squares ] ; 
DigstP1Leot|[ squatras，P1otStyY1La 一 PointSize[ .02]]; 
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男 外 ,FilledListPlot 将 填充 图 形 下 面 的 区 域 ,从 而 形成 措 述 数据 的 填充 多 边 形 .该 命令 
的 格式 与 ListPlot 的 相同 ,FilledListPlot 包含 在 Graphics>~EilleadPlot~ 中 ,因此 在 使 用 该 
命令 前 必须 上 载 这 个 软件 包 . 

国 。 FiliedListPlot[1y1，Y2，…j} | 绘制 个 填充 的 点 图 ,其 yy 坐标 为 焙 ，Y2，…, 而 全 


第 鹿 意 一 谁 图 形 


坐标 则 古 引 整数 1，2，… 


图 FilledListBlot[1 zt， YL， ia2，Y21，… 和 绘制 填充 的 点 图 ,各 点 的 党 标 为 (xl， 
y1 1) ， (x2, y2), 四 


例 31 之 Graphics ~ FilledPplot、 
randonintegers = Table[Randon[ Integer, |1, 20}], ik, 1, 301]; 


一- 一 一 -一 一 一 一 一- 一 一 


ListPlot[randominteqers]: Table 命令 生成 由 加 个 随 本 数 凡 成 的 
FilledListPFlot[randomintegers]; 列表 , 等 个 随机 数 介 于 上 邯 20 之 同 ， 
20 20 
15 
10 


可 以 用 MultipleListPlot 同时 绘制 几 个 列表 的 图 形 , 坊 命 令 的 语法 与 List?lot 类 似 , 只 
是 这 里 有 可 能 指定 几 个 列表 .MultipleListPlot 包含 在 软件 包 Graphics “MultipleListPlot、… 
中 ,因此 在 使 用 前 须 上 载 这 个 软件 包 . 

图 MultipleList2?1ot[ 列 表 1， 列 表 2，… ] 

图 ”XultipleListPLot[ 庆 表 1， 列 表 2，…， 选 项 ] 

这 毕 的 列表 形式 浮 明 xz1， 呀 1，}x2，721，…| 或 者 171， 了 2，… ,其 中 ,了 坐标 取 正 整数 1， 
2， LE 

每 个 到 表 指 图 形 用 不 同 的 符号 表 冰 .BlLotyoined 选项 确定 是 否 把 点 连接 起 来 . 
。 PlotJoined ->True 用 不 同 的 线段 抬 点 连接 起 来 . 


例 32 < 个 Graphics NoltipleListBlot -~ 


lsti = | 9， - #4), [1, Dj ， {1， 3|， | 5， 2 | ， 17, 了 | 1 
lst2 = {i0, -1}1, {2, -1}, {3, -5 {4, 0 人 5 
lst3 = {10, 0|, {3, 6}, {5, ~- 4}, f€6, 1}, {7, 1}}; 


MultipleListPlot[lst1, lat2, 1st3]: 
MultipleListPlot[ lstl, lst2, lst3, PlotJoined 一 了 euej]; 


| | 只 
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可 以 用 Mathematica 画 不 同类 型 的 条 形 图 .这些 命令 都 包含 六 软件 多 Graphics -Graphics 


"11i: 


:1]2， 
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BarChart[ 数 据 表 1， 数 据 表 2，…， 选 项 ] 旺 单 个 条 形 图 .如 打 指 十 了 多 个 数据 表 , 于 
么 根据 数据 契 表 中 的 们 置 , 反 和 茶 形 图 分 或 茹 此 邻近 的 组 .每 个 狐 据 表 的 形式 为 ;871， 
y2， 或 者 {x1，y11，)x2，Y21， ,位 二 人 列表 可 以 由 涉 同 数量 组 成 . 
StackedBarChart[ 数 据 表 1， 数据 表 2，…,， 选项 ] 妆 给 出 多 组 数据 表 时 可 以 使 用 该 于 
数 .这 时 同一 组 中 的 落 形 图 是 堆积 在 一 起 ,并 和 不足 相 邻 提 放 ， 
PercentileBarChart[ 数 据 表 1， 数据 表 2，…， 选 项 ] 生成 一 个 推 积 的 条 形 图 , 只 基 
这 里 每 -条 的 高 度 总 种 部 是 100%. 

GeneralizedBarChart[ 数 据 表 ,数据 表 2，…， 选 项 ] 生疏 数据 委 的 荣 形 图 , 这 时 的 
每 个 数据 去 沸 定 条 形 的 位 置 ,高度 与 宽 齐 . 


上 下面 给 出 的 是 使 用 Barthart 时 可 以 使 用 的 选项 ， 


中 
用 
用 
用 
用 
例 33 


Barorientation 一 Horizontal 使 条 开 图 从 昱 直 摆 放样 式 焉 成 水 和平 押 放 样式 ， 

BarOrientation Vertical 为 默认 便 . 

BarEdges 一 False 上 去 挥 包围 每 个 条 形 图 的 轮 译 线 ， 

BarValues 一 True 给 每 个 角形 图 标 上 它 所 表示 的 数值 ， 

BarLabels 一 字符 第 表 利用 茶 形 图 位 置 对 应 宁 符 串 表 中 节 字 符 串 给 条 形 图 加 上 标 
TextStyle 9 以 改 灾 在 图 形 交 本 中 所 用 的 默认 字体 央 尺 寸 , 例如, TextsStyle 一 
[FontFamily 下 字体 名 ，FontSize -* 尺 寸 就 是 该 选项 的 一 个 简单 而 实用 的 例子 . 

BarSpacing 一 数值 指定 末 个 条 形 图 之 间 的 间距 ,这 里 的 数值 表示 出 一 个 条 形 图 总 


光度 的 白 分 比 . 
BarbroupSpacing 一 数值 指 定 机 邻 菜 形 图 组 之 加 的 距离 ， 这 里 的 数值 表示 占 一 个 条 
形 图 宽度 的 百分比 . 


BarStyle 指定 每 个 杀 形 图 的 样式 (如 RGBColor,Hue Gravbevel, 等 等 1， 
BarEdgeStyle 指定 茶 撕 加 边界 的 样式 ， 


<<Graphics ~ Graphics™ 
dataset1 = {5, 1, 2, 8, 5)}; ”parstyle 的 加 认 信 为 红 与 旺 条 形 图 ,在 本 
dataset2 = 11 6 3, 5, 2]， | 书 此 处 凡 及 后 面 例 于 中 则 用 6raylevel， 


gl = BarChart[ dataseti, BarStyle 一 |GrayLevel[ .7]]， 
DispalyFunction—*1Identity |; 

g2 = BarChart| dataset, dataset2, 
BarStyle —|GrayLevell .7], GrayLevel[0]1}, 
DisplayFunction —Identity |]; 

g3 = StackedBartharti dataset, dataset2, 
BarStyle — |GrayLevel[.7], GrayLevel[01]}, 
pisplayFunction 一 Identity |; 

g4 = PercentileBarChart[dataset, dataset2, 
BarStyle — |GrayLevel[ .7], GrayLevel[0]|, 
DisplayFunction —1dentity |; 

可 = Graphicsarray[ {lgl, g2|, Ig3, g4!}]; 

Show[g, DisplayFunction — $ DisplayFunction|; 
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例 34 < 鼠 Graphics ~ Braphics、 
datasetl = |5, 1, 2, 8, 5}; 
dataset2 = |1i, 6, 3, $, 21; 
gl = BarChart[dataset1, dataset?, 


BarLabels 一 | "Non.”, “Tues,”, “Wed,”, “Thurs. ~, Pri.”!, 
BarSpacing 一 ,1，BarGroupSpacing 可 一 .5， 
BarStyle — {GrayLevel[.7], GrayLevel[0]|, 
DisplayFunction 一 Identity]; 
g2 = BarChart[dataset1, dataset2, 
BarLabels 一 | Mon.”, "Tuss.”, "Ned.”, "Thurs.”, “Fri.”}, 
Barspacing *.1, BarGroupSpacing 一 .5， 
Bardrientation —*Horizontal, 
BarStyle 一 | GrayLevel[,7]，GrayLevel[0] | ， 
DisplayFunction —1ldentity]; 
g = GraphicsArray[ {gi, g2!]: 


Show| g, DisplayFunction — Di splayFunction |; 


饼 形 图 可 以 用 PieChart 命令 构造 出 来 ,这 条 命令 也 是 包含 在 软件 包 Graphics、 Graphics- 
sk 


由 ”PieChart| |xl，x2,，… | ] 把 数组 |x1，x2,，…| 中 的 数据 转化 为 镜 形 显示 , 即 用 崩 形 表 
示 , 每 部 分 的 太 小 正比 于 Xl1, x2, … 的 值 ， 


自 ”PieChart[|x1， 又 ,…|， 选 项] 构造 饼 形 图 ,并 使 用 各 种 选项 . 


下 面 给 出 的 是 在 PieChart 中 可 以 使 用 的 各 种 选项 ， 
” ”BieLabels 一 标签 表 , 其 中 标签 表 为 一 组 文本 字符 串 ,分 别 对 应 丁 图 中 棉 形 的 标签 . 
网 形 歌 认 的 标签 为 连续 整数 1，2. ，… .PieLabels None 使 得 不 显示 标签 
”PieExploded >All. 使 得 饼 形 图 有 突出 效果 .如 果 不 想 突出 所 有 的 棉 形 , 那么 pie- 
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例 35 


例 36 


Wathematica 合用 指南 


Exploded 一 1 枢 形 1， 模 形 2，…| 使 得 只 有 指定 的 横 形 才 会 被 突出 . 

PieStyle 一 样式 表 , 其 中 样式 表 是 :组 图 形 样式 (如 RGBColor, Hue, GrayLevel 等 
等 ,), 从 而 可 以 使 饼 形 图 中 每 个 搓 形 具有 各 种 不 同 的 样式 , 如果 枫 形 数目 多 于 样式 
数目 ,PieStyle 要 被 循环 使 用 . 

PieLineStyle 一 直线 样式 表 , 其 中 直线 样式 表 为 一 组 直线 样式 ,利用 这 个 选项 可 以 
给 横 形 的 边界 线 指定 不 同 的 样式 . 如果 栅 形 数目 多 于 样式 数目 ,PieLineStyle 要 被 
循环 司 用 .， 


< 六 .Sraphics Graphics™ 

datalist = {1.5, 3, 4.5, 9); 

PieChart[ datalist, PieStyle 一 

[GrayLevel[ .6], GrayLevel[,7], GrayLevel[.8], GrayLevel[.9]|}]; 


Graphics ~ Graphics ~ 
datalist = {1.5, 3, #4.5, 9}; 
labellist = {First”, “Second’, "Third, “Fourth’}; 
gl = PieChart[datalist, 
PieLables —1labell1ist., 
PleExploded All, 
PieStyle 一 | GrayLevel| .6], GrayLevel[ .了 ]， 
GrayvLeval1| .8], GrayLevel[ .9]|, 
DisplayFunction —*1dentity |; 
gq2 = PieChart| datalist., 
PieLables —1labellist, 
PieExploded 一 12，3| ， < 二 只 有 第 二 个 与 第 一 个 网 形 被 突出 寻 示 . 
PieStyle 一 |GrayLevel[.6]，GrayLeveli .7]， 
GrayLevel[.8], GrayLevel[.9|]|, 
DisplayFunction 一 Identity] ; 
g = Graphicshrray[ |gl, 9g2}]; 
Show|g, DisplayFunction — $ DisplayFunction |; 
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习题 解答 


4,.18 夯 出 前 50 个 素数 的 图 形 . 
解 《5 


primelist = Table[Prime[k], {k, 1, 50}]: 
ListPlot[prinelist]; 


19 2D 39 40 5 


4.19 措 妆 点 (0，0)，(2，7)，(3，5) 与 (4，11), 并 用 直 败 段 把 它们 过 接 起 来 . 
解 8 瑟 


lst = [{0, 0}, 12, 7}, {3, 51}, {4, 11}}; 
ListPlot[1st，BlotJoined —>True]; 


4.20 画册 对 应 于 21 与 2”, n=1,2,3,4,5 时 的 点 ,首先 有 只 是 画 出 点 ,然后 再 把 它们 连接 起 
来 . 


"lis- 


Mathematica 使 用 指 侠 


解 上 二 

‘Graphics~ MultipleListPlot ~ 

lst1l = Tableln!, in, 1, 5|]; 

lst2 = Table[2°, {n, 1, 51]; 
MultipleListPlot[lst1i, lst2, PlotRange 一 ”及 LI] ] ; 
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MultipleListPlot[lst1, lst2, PlotRange —=A1l1, PlotJoined*Truel}: 


1 
100| / 
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raphics ~ Graphics™ 
nonths = {Jan’, “Feb ‘Mar’, Apr’, May, ‘Jun, “Jul’, “Mug,, 
"Sep”, “Oct”, "Nov’, “Dec”}: 
salesdata = |13.2, 15.7, 17.4, 12.6, 19.7, 22.6, 20.2, 18.3, 
16.2, 15.0, 12.1, 8.6}; 
BarChart[ salesdata, 
BarLabels —=months, 
Barialues ~*True, 
PlotRange 一 只 |， 
TextStyle 一 | 了 ontFanily —*Helvetica, FontSize 一 引 | ] ; 
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4.22 用 一 个 单 色 饼 图 演示 前 … 个 习题 中 的 数据 . 
解 二 
‘Graphics™ 和 capbhIeSs~ 
months = |“Jan’, “Feb’, Mar’, “Apr’, May, Jun’, Jul, Aug, 
“Sep”, "Qt”, Nov, ‘Dec”|; 
salesdata = |13.2, 15,7, 17.4, 12.6, 19.7, 22.6, 20.2， 18.3, 
16.2, 15.0, 12.1, 8.6|}; 
PieCthart [salesdata, PieLabes —nonths, 
PieStyle 一 [1GrayLevel[.8]] ]: 


4.4 ”动画 


利用 amiaate Selected Graphics 选项 (可 在 Cell 荣 单 中 找到 ) 就 可 以 简单 而 快捷 地 产 牛 
实用 动画 效果 ,这 个 选项 快速 地 连续 演示 几 种 不 同 的 图 像 ,从 而 造成 运动 的 假象 

创建 动画 中 的 第 一 步 就 是 构 阁 一 系列 图 像 , 每 幅 图 像 郡 稍 有 些 不 同 .5 拥有 的 图 像 数目 起 
大 , 相 邻 图 像 之 间 的 差别 越 小 , 那么 就 会 看 到 越 光 滑 的 动画 效果 . ) 授 着用 忆 标 选择 图 像 单元 活 
导 . 最 后 选择 Cell 之 了 mimate Selected Graphcis, Mathermnatica 就 会 为 你 做 余下 的 事情 了 . 

下 面 的 例子 演示 了 在 z” 中 当 硼 数 ” 变 大 时 的 很 有 趣 的 动画 效果 .(Mathematica 会 把 图 
形 上 上 下 竖 直 摆 放 . ) 


例 37 DolPlot[xk, {x -1, 11, 
PlotRange —| -1, 1|, Ticks —*False], {k, 1, 19, 2}| 


，1 1] 和 ， Marhematca 志 用 指南 


选择 这 些 图 像 的 单 中 括号 , 然后 再 选择 Cell 之 mimate Selectad Graphcis, 瑟 可 以 看 到 
动画 效 末 了 


4.23 构造 阿 基 米 德 螺 线 r =6,8 从 8 灾 到 10x 的 动画 . 
解 5 
‘Graphics ~ Graphics™ 
Do [PolarPlot[0, {10, 0, 8n+$}, Ticks False, 
PlotRange -一 | | - 10x, 10xr}, | — 10nx,10r}}], {9,0,27n, nr/6}] 


2 
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选择 这 些 图 像 的 单元 括号 ,然后 峙 选择 Cell 之 Rnimate Selectead Graphcis, 这 样 曼 线束 
会 旋转 起 来 . 


4.24 构造 点 沿 从 0 到 2r 的 正 芒 曲线 移动 的 动画 . 
解 。 上 
首先 构 咎 正弦 曲线 ， 


sineurve = Plot Sin[x], {x, 0, 2x}, Ticks 一 > 了 al1se] ; 


现在 构 半 一 系列 半径 为 0.05 的 固 盘 表示 的 点 . 
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Do[ Show[ sincurve, Graphics[Disk[ {x, Sin[x]}, 0.051], 
FlotRange -—* {10, 2x}, { ~- 1, 11}, 
AspectRatio —*Automatic], {x,0,2r,n6}] 


这 样 束 得 到 了 下 述 的 图 形 厅 询 ， 


选择 这 些 图 像 的 单元 格 括号 , 然后 再 选择 Cell 二 Rnimate Selected Graphcis, 点 就 会 治 
曲线 移动 起 来 . 


第 五 章 三 维 国 和 形 


5.1 绘制 二 元 函数 的 图 形 


具有 瑟 个 变 基 的 蚂 数 可 以 看 作 是 二 维 空间 中 的 曲面 .绘制 曲 向 的 最 简单 命 仿 足 Plot37， 
加 ”Plot3D[f[x, y¥]，!x，xmin, xmax|j，{y， yonin，ymax|] 综 制 冰 数 让 x, y| 侍 写 形 xmin 
<xSxmax yinsysymax 上 定义 的 二 维 曲 面 . 


例 1 Plot3D[Sin[x- y], {x, - x,r}l, ly, - n,n}]; 


PlotPoints 庭 项 指定 生成 图 形 时 在 每 个 方向 上 所 用 的 点 数 .与 二 维 图 形 不 同 ,三维 图 形 
的 黑 认 值 光 PlotPoints 一 15. 这 种 设置 有 时 候 会 使 图 形 显 得 不 六 请 . 增 太 PlotPoints 的 值 就 
会 绥 解 这 种 现象 . 


* PlotPoints 一 了 指定 在 每 个 方 网 上 人 恒 用 个 取样 点 . 
* PlotPoints |nx, ny¥| 指定 在 x 轴 与 y 轴 方 可 上 分 别 使 用 nx 与 ny 个 取样 点 . 


下 面 这 个 例子 说 明了 增 太 PlotPoints 的 值 是 如 何 改 变 所 得 图 形 的 “光滑 性 "的 . 


例 2 f[x_, y_]=x yy Expl- (w+ YY)]; 
Plot3D|f[x, y)], {x, - 2,2|, {vy, - 2,2;]; 
Plot3D[f[x, yl, {x, - 2,2}, {y, - 2,2;, PlotPoints 一 25]， 
Plot3D[f[x, ¥|, {x, -2,2}, {vy, -2,2], PlotPoints —*40]; 


绝 大 多 数 的 二 维 图 形 选项 在 Plot3D 中 都 可 以 使 用 , 除 此 而 外 , 它 还 具有 几 个 选项 .最 常用 
的 是 ， 

* Axes 一 False 个 显示 坐标 轴 ， 

* hxes 一 |Troe 或 False，True 或 False，True 或 False; ,其 中 的 True 或 False, 就 是 
指 要 人 么 为 True, 要 人 么 为 False， 以 乏 制 每 个 坐标 轴 显 示 与 否 . 

” Boxed False 不 显示 包围 图 形 的 合子 (包围 合 )， 

* BoxRatios 一 jsSx，SyY，962| 指定 三 维 图 形 包 围 鲍 各 边 长 度 的 比率 . "Tickgs 一 

False 个 显示 所 有 坐标 轴 上 的 刻度 以 及 相应 的 标签 

* Ticks |1True 或 False，True 或 False，True 或 FaISse | ， 其 中 的 True 或 False, 束 

是 指 要 么 为 True, 要 么 为 False， 以 控制 每 个 坐标 轴 是 否 显示 肇 度 . 
FaceGrids 计 项 确定 是 理 绘 制 在 包围 盒 的 每 个 侧面 上 的 格 线 , 

” FaceGrids 一 RI1 在 包围 盒 的 所 有 六 个 侧面 上 都 显示 格 线 ， 

” BaceGrids 一 Nene (默认 值 ) 不 绘制 任何 格 线 . 

» FaceGrids —*||xi, vy1, 211，| x2， Y2，z2 | ，-…， |x6, vyé, z6| | 使 得 每 个 侧面 具有 
不 同 的 格 线 . 其 中 每 个 列表 的 三 个 数 中 必须 有 两 个 为 零 ， 第 三 个 为 十 1 以 指定 六 个 
侧面 中 的 一 个 ， 

AxesEdge 侈 项 指定 在 包围 盒 上 的 哪个 边界 上 的 坐标 轴 被 显示 出 来 

4 AxesEdge >Autonatio {默认 信 ) 由 Mathematica 确定 显示 哪个 边界 轴 . 

“MxesEdge 一 上 | zj， [x2, xz2]，|x3sy3|] ,其 中 zx, y,zx 的 每 个 值 为 1 或 -1 指定 
显示 哪个 边界 轴 .1 表示 在 边界 上 按 最 大 坐标 值 显示 坐标 轴 ; - 1 则 表示 最 小 坐标 
值 .三 个 列表 中 性 一 个 都 可 以 用 Mutomatic( 表 示 由 Mathematica 确定 是 否 显示 坐标 
加) 或 者 Neone( 表 示 不 显示 坐标 轴 ) 代 替 . 

* BoxStyle 选项 指定 包围 盒 的 绘制 方式 . 可 以 给 BOXStY 了 ea 指定 一 组 图 形 指令 ， 如 
Dashing, Thickness, GrayLevel 或 者 REBColor 

” ”Mesh 选项 确定 在 曲面 上 是 否 显 未 属 线 . 馈 省 值 为 Wegh >True. 如 果 设 置 为 Mesh 一 
False 融会 去 掉 格 线 . 

* Shading 选项 确定 是 否 给 曲面 加 阴影 效果 , 缺 省 值 为 Shading 一 人 rue， 

下 面 的 例子 用 几 种 不 同 的 方式 绘制 抛物 柱 面 * = zz2. 


例 3 Plot3D[x*, |x, = 2 |} {y, -2, 21]: 
Plot3D[ x*, | x， = | | 7， -2，2|，Mesh —*"False|: 
Plot3D[x, {x, -2, 2}, [¥y, -2, 2}, Shading —False | ; 
Plot3D[x, {x, -2, 2)j, {y, -2, 2), BoxRatios —=|1, 1, 1}]. 
Plot3D[x, {x, ~ 2, 2}, [y, ~- 2, 2}, FaceGrids *||1,0,0}, {0, -1,0}]; 
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blot3D[ x:, {x, -2, 2), {y, -2, 2!, MxesEdge 一 [| -1,1},11,1},11, -1}1})]; 
在 三 维 图 形 中 , 为 了 得 证 令 人 满意 的 立体 效果 , 首先 生成 一 系列 的 多 边 形 , 然后 加 上 内 影 . 
虽然 选项 Shading 一 False 使 得 不 进行 阴影 处 理 ,但 是 综 制 的 多 边 形 是 不 透明 的 ,因而 在 某 个 
曲面 后 面 的 曲面 是 看 不 到 的 . 选项 HiddenSurface 控制 是 否 到 多 过 形 给 成 不 透明 的 或 透明 的 . 


» HiddenSurface 一 8alse 把 和 多边 形 绽 成 透明 的 ( 即 只 男 由 连接 线段 )， 从 而 所 有 的 曲 
面 都 征 见 . 据 省 什 HiddenSurface 一 True 生成 不 境 明 和 多边 形 . 


例 4 Plot3D [1 - ¥, {x, -5, 5}, {fy, -5, 5}, BoxRatios —={1, 1, 2|, 


第 五 草 二 维 图 形 


Boxed —False, Mras 一 FalSse]; 

Plot3D [1 - yy, lx, —5, 5}, ly, -5, 5}, BoxRatios ->{1, 1, 2), 
Boxed —False, Axes —*False, Shading -=False | ， 

Plot3D [1 - ¥y, {Ix, -5, 5}, {y, -5, 5}, BoxRatios 一 1，1，2|， 
Boxed —False, Ares *False, HiddenSurface 一 False]; 


i Ee E 时 | 
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有 许多 不 同 的 方法 查看 三 维 图 形 . 选 项 ViewBeint 指定 在 包含 图 形 的 包围 盒 外 面 的 一 个 

固定 点 ,以 从 该 点 查看 图 形 . 
"ViewPoint |x,， ¥，z| 给 出 相对 于 要 绘制 曲面 的 包 国 盒 中 心 的 视点 位 置 . 

视 扎 举 标 要 经 过 放 缩 ,使 得 包围 合 的 最 长 边 为 1. 视点 必须 在 包围 盒 的 外 面 ,一 般 地 ,所 选 
择 的 视点 高 曲面 越 远 , 曲面 的 变形 就 越 轻 . 

ViewPoint 参数 的 默认 信和 为 i1.3，- 2.4， 2.01.ViewBPoint 一 10，-2，0f 就 会 直接 从 曲面 
的 前 面 查 看 , 10, 0，2| 直 接 兴 上 面 查 看 曲面 . 

在 Mathematica 中 有 一 种 简明 的 方法 确定 ViewPoint 的 参数 .选择 Input 之 3D ViewPoint 
Selector … 束 会 进入 一 个 交互 式 确定 视点 的 界面 . 


在 这 个 窗口 中 可 以 直接 调整 >, y, 坐标 , 或 者 利用 鼠标 拖 动 方 框 . 当 调 糙 结 更 时 , 点 击 
“Paste" 就 会 在 当前 光标 位 置 手 入 文本 
ViewPoint —=|1.300,- 2.400，2.0001， 
下 面 的 例子 秆 示 了 从 不 同 的 视 操 查看 双 曲 扫 物 面 x = x* 一 y* 的 结果 . 
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全 -= 


例 5 


FLot3D[x -yy, {x, -5, 5), {y, -5, 5}, BoxRatios 一 1，1，1]]; 
BRlot3D[x -y¥, {x, -5, 5}, ly, - 5, 5|, BoxRatios —»{1, 1, 1), 
ViewPoint -|2, 2, 2]]; 
Plot3D[x ~ y, {x, - 5, 5), {y, -5, 5}, BorRatios —={1, 1, 1], 
ViewPoint —*|1.5, 一 . 右 ， -1.5}]; 


Plot3D 一 次 只 能 画 一 张 三 维 曲面 . 在 第 四 章 讨 论 的 Show 命令 可 以 企 同 一 坐标 入 中 显示 
几 张 曲面 .下 面 的 例子 显示 了 两 个 抛物 面 的 交 .首先 单独 显示 曲面 ,然后 为 了 比较 , 在 一 个 包围 


盆 中 同时 显示 它们 . 如果 希 望 的 话 , 可 以 用 DisplayEunction-~Identity 选项 不 显示 前 两 个 图 
形 . 


例 16 paraboloidl = Flot3D[x: + vy, (x, -3,3}, 17，- 3,3}, BoxRatiog 一 |1， 1, 1}1:; 


Paraboloid? = Plot3D[16 - (x + ¥), {x, - 3,3], {fy, - 3,3), BoxRatios —» |1, 1, 
1|]; 

Show[paraboloidl1，paraboleid2 ] ， 
由 参数 方程 定义 的 曲线 和 曲面 可 以 用 Barametricglot3D 绘制 其 图 形 . 


FarametricPlot3D[ {x[t], yft], z[t]}, {t, tmin, tmax| ] 在 三 维 空 间 中 绘制 tmin 


<:t<s:tnax 确定 的 空间 曲线 . 
ParametricPlot3D[ ix[s, t], y[s, t], z[s, tj}, fs, smin, smax|, ft, 七 main ， 


tmax| ] 在 三 维 空间 中 绘制 sminsss< smnax 与 tminsct<s tnax 确 定 的 曲面 . 
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例 7 ParanetricPlot3D [Cos[t], Sin[t], t/a}, 七， 0, 47|， 
ViewPoint |1.292, -2.788, 1.418!]; 
ParanetricPlot3D[ {Sin[s+t], Cos[s +t], sj, Is, -2, 2}, {t, - 2, 2); 


Plot3D 显示 在 直角 坐标 系 中 的 曲面 . 而 在 包含 圆柱 面 .球面 和 圆锥 面 的 问题 中 , 使 用 柱 面 


:1120 
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坐标 系 和 球面 坐标 系 就 相当 方便 ， 

态 Ptr, vy, 之 ) 的 柱 面 坐标 为 (zx, #8, z), 其 中 x= rcos8, Y= sin8 ;球面 坐标 为 (Cp, 9,$)， 
其 中 x = psingcos0, y= psingsing, x = pcos#$. 这 里 7 本 8 为 态 P 在 x -sy 平 男 上 投影 的 极 坐 
标 , 而 #5 为 x 轴 和 这 拉 PP 与 原点 的 线段 所 形成 的 来 骨 . Marhematica 前 令 CylindricalPlot3D 
与 SphericalPlot3D 可 以 绘制 在 这 些 侍 标 系 中 定义 的 曲 侧 .这 两 条 命 今 包 谷 柱 Graphics 
~ParametricPliot3D 中 , 可 以 在 命令 中 使 用 所 有 的 二 维 绘 图 选项 . 

特别 注释 ” 当 遇 到 球面 坐标 时 , Mathematica 的 约定 与 在 许多 标准 微 积 分 教科 书 中 的 约定 
不 同 . 它 交换 了 8 与 点 的 位 置 . 在 下 面 撒 述 的 SphericalPlot 3D 命令 中 虽然 与 Mathematica 帮 
助 文 件 中 的 描述 不 同 ,但 它 遵 从 的 还 是 这 于 约定 ， 

CylindricalPlot3D[z[r, 81, {r, roin, rmax}, {84, dnin, fmax|j1] 生 成 在 柱 面 坐标 

中 描述 的 曲面 x = ztr,9). 
加 SphericalPlot3D[ p[$, 808], {, $min, Pnax)}, {0, bmin， gnmaxi ] 主 成 在 球面 坐标 中 
描述 的 曲面 o = pl$, 8). 


例 8 在 柱 面 坐标 系 中 ,方程 > = r 表示 圆锥 面 ,而 在 球面 坐标 条 中 , p= 1 表示 单位 球面 . 
‘Graphics* ParametricPlot3D" 
CylindricalPlot3D[r, {r, 0, 1}, it, 0, 27},BoxRatios |1, 1, 1}]; 
SphericalPlot3D[1, {t, 0, 2x}, {fp,0,x},BorRatios —>{1, 1, 1}]; 


习题 解答 


5_.1 在 定义 域 -2 之 z 志 2 与 -2 所 y 之 2 上 绘制 函数 e-"-* 的 图 形 . 注 意 使 用 足够 多 的 点 ， 
以 得 到 “光滑 "的 曲面 . 


解 BF Plot3D[Exp[ -ww-Y¥], [x -2, 2}, {y, - 2, 21}, PlotPoints 一 25|] ; 


s.2 在 立方 体 盒子 中 钛 出 马鞍 面 z= 工 一 y ,一 5 扩 7 所 5, 一 5 入 ?所 5 的 图 形 . 给 出 两 张 图 
形 ,一 张 有 格 线 , 另 一 张 没 有 格 线 . 


解 二 


Plot3D[ x -vy, (x, -5, 5), [fy, -5, 5}, BoxzRatios —* (1, 1, 1}]; 


mm i i — rr -ea em 一 me 


$.3 
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Plot3D[x -vy, Ix, -5, 5)}, |y, -5, 5}, Mesh —False, 
BoxRatios ~*» {1, 1, 1|]; 


琴 出 函数 f(z，y) = |sinrsiny | 在 -2x 委 x 所 2x, -2r 扫 y 委 2x 上 的 图 形 . 不 显示 坐标 
办 ,使 用 足够 多 的 点 ,以 得 到 “光滑 的 "曲面 . 
解 鲸 


Plot3D [Abs[Sin[x] Sin[y]], {x, - 2x,2n), I¥, - 27r，27] ， 
Axes —False, PlotPoints 一 30]; 


pp dd EEE OC 
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s$.4 画 出 曲面 z=|11 一 x 一 y | 在 -1 所 x+ 入 1, -1 入 y 访 1 上 的 木 加 明 影 的 图 形 . 不 显示 坐标 
轴 和 人 包围 盒 . 
能 ”#5 
Plot3D[ Abs[1 -x —-y], fx, -1,1|, ly, - 1,1|, Shading —*False, Axes False, 


Boxed 一 False] 


5.5 画 出 抛物 面 x = x*+ yy 与 平面 y+ z=12 的 变 . 给 出 两 种 不 同 的 视图 ， 
解 i 
paraboloid = Plot3D[x + y, Ix, - 5,5), [vy, -5,5;,DisplayFunction 一 Identity]; 
plane = Plot3D[12 - y, |x, -5, 5|, {y, ~ 5， 5|, DisplayFunction 1ldentity |; 
Show [paraboloid, plane, BoxRatios —|1, 1, 1|, 
PlotRange —* [0, 201, Displavfunction — $ DisplayFunction |; 
Show [paraboloid, plane, BorRatios —*{1, 1, 1}], 
ViewPoint ~—=|1.126, -1.800, 2.634}, 
PlotRange —* {|0, 20}, DisplayFunction — $§ DisplayFunction]; 


z=cosat, 
$5. 画 出 由 参数 方程 4 y = sinBt, 0 所 1 所 27 定义 的 曲线 在 下 述 几 种 情况 中 的 图 形 ， 
& = snect, 
(ija=5,p=3,c=1;(ii}a =3, B=3,c=1;(iDa=2,b=5,c=2., 
《这些 曲线 称 为 利 萨 如 曲线 . ) 


溃 五 章 二 维 图 形 


解 本 


gl = ParametricPlot3D[ |!Cos[st], Sin[3t], Sin[t]}, it, 0, 2x), 
DisplayFunction Identity |; 

g2 = ParametricPlot3D [ [Cos[3t]j, Sin[3t], Sin[t])}, {t, 0, 2x}, 
DisplayFunction ~*Identity]; 

g3 = Parametricplot3D [iCos[2t], Sin[ St], Sin[2t]|, Iit, 0, 2x}, 
DisplayFunction 一 Identity] ; 

可 = GraphicsArray[ [gi, g2, 9g3|] ， 

Show[g，DisBlayYgunction ~ $ DisplayFunction)|; 


i 二 (十 vins eost, 
5.7 画 出 由 1y=(4+sinsjsint, 0 所 ys， 1 所 27 定义 的 圆 环 面 的 图 形 . 
过 COSS, 


是 4 王 


ts_,t_] = (4+ Sin[s]) Cos[t]: 

yl[s_,t_] = (4+ Sin[s)j) Sin[t]; 

zis_,t_] = Cos[s]; 

ParametricPlot3D[ {x[s, t], y[s, t], z[s, tj}, {s, 0, 2x}, 
it, 0, 2x|, FlotPoints 一 50] ; 


z= 4+ sin20r cost ， 


5,8 团 出 空间 机 线 | (4+ sin20tjsinf， DOsrs2xr 的 图 形 . 这 杀 曲 线 称 为 圆 环 晶 线 , 国 为 它 


?二 cosd07, 
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位 于 团 环 面 上 (见习 题 5.7) 

解 二 

x[t _]={4 + Sinl20t]} Cosilt]; 
y[t_}J]=(4 + Sin[20t]) Sin[t]; 
z[t _] = Cos[20t]; 


ParametricPlot3D[ {x[t], vy[t}, z[t]i, it, 0, 2x}, PlotPoints 一 250] ， 


5.9 画 出 具有 一 个 单位 宽 , 形 状 为 从 0 到 4r 的 正弦 曲线 的 "带子 "图 形 . 


解 《 
二 ft 

这 张 昌 面 的 参数 表示 为 和 4y=s， 0 所; 所 1, 0 所 t 所 dx. 
* = Snt, 


ParamatricPlot3D[ |t, s, Sin[t}]}, {s, 0, 11, It, 0, 4r}, Axes —*False]: 


5.10 利用 柱 面 坐 标 画 出 “冰淇淋 锥 " 即 由 锥 面 =3 yz + yy 以 及 球面 zx*+y +(z-9):=9 
的 上 闪 部 分 所 构成 几何 体 的 图 形 . 


解 HEF 


在 柱 面 坐 标 系 中 , 这 个 圆锥 的 方程 为 = = 3r, 半 球面 方程 为 2==9+ v9 一 7. 
Graphics™ ParametricPlot3D" 
cone = CylindricalPlot3D[ 3r, {r, 0, 3}, {8, 0, 2x}, 
DisplayFunction 一 Identity]; 
henmisphere = CylindricalPlot3D[9 + /9-ri, ir, 0, 3},|08,0,2x}, 
DisplayFunction 一 Ideantity ] ; 
g = GraphicsArray[ |cone, hemisphere| ]; 
Show[g, DisplayFunction —* $§ DisplayFunction)|; 


第 五 章 三 维 图 光 


mw 


于 出 他 球面 变 标 系 中 下 还 方程 定 浆 的 曲面 的 网 形 ， 
= 一 1+asin4psing,0 拓 站 所 2r0 雪 交 雪 区， 


解 ”EE 


‘Graphics™ ParametricPlot3D" 
SphericalPlot3D [1 + Sin| 40 ]Sin[$], 1$,0, rl, 10,0,27!, PlotPoints -50]. 
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5,2 其 它 的 给 图 命令 


二 元 函数 fz，y) 的 层次 曲线 就 是 由 F(x，y)= 上 & 确 定 的 一 幅 二 维 图 形 ,这 里 尺 为 某 个 
指定 值 . 所谓 轮 廊 图 就 是 在 同一 坐标 系 中 国 出 的 层次 曲线 集合 . 


Mathematica 谷 令 ConteourPlot 纵 制 二 元 阔 数 的 花序 图 ,和 仁 纶 刻 图 中 把 具有 相同 高 度 的 点 
连接 起 来 . 扇 省 情况 中 胃 廓 是 对 应 于 六 数 的 一 系列 等 间距 值 的 . 


国 ContourPlot[f[x, ¥]，|x， xmin，ymax}j，|y，ynin，Ymax| ] 绘制 函数 f(x，y) 在 由 
xmjn，xmax，vmin 与 wnaz: 懈 定 的 矩形 上 的 轮 历 图 . 
由 Mathematica 生成 的 轮廓 图 是 有 阴影 的 ,从 而 使 得 六 <，y) 的 值 越 高 的 区 域 , 显示 得 就 
越 淡 . 与 所 有 的 Mathema:ica 图 形 命令 一 样 ,可 以 利用 选项 控制 图 形 的 外 观 . 


=。 Contours 一 na 俏 定 要 绘制 的 轮廓 数 , 读 省 情况 下 是 绘制 10 条 等 间距 的 曲线 . 
"Contours [kl，k2,，，…|] 绘制 对 应 于 函 获 值 k1，k2，… 的 轮廓 线 . 


。 ContourShading 一 False 不 显示 阴影 .如 果 所 用 的 显示 器 或 打印 机 不 能 很 好 地 处 理 
灰 度 时 , 这 个 选项 是 相当 有 用 的 ， 


"ContourLines False 去 掉 分 开 轮 廓 的 线段 . 


PlotPoints 一 n 控制 构造 曲线 的 目 造 应 算法 看 每 个 方 同 上 要 梗 用 的 点 数 .默认 值 为 
15.{ 二 维 图 形 的 标准 默认 值 为 25.) 


可 以 利用 命令 Options[ConteurPlot] 得 到 选项 的 完整 清单 ， 


例 9 给 出 抛物 面 z = .x*+ y* 的 轮廓 图 .注意 这 时 的 层次 曲线 为 圆 r + 六 = 下， 
ContourPlot [x + v, {x, -10, 10}, {y, -10, 10}]; 
ContourPlot[x + Y¥, Ix, -10, 10}, {y, -10, 10}, ContourLines —False]; 
ContourPlot[x: + y, |x, -10, 10}, ‘y¥, -10, 10}),ContourShading =False]; 


所 谓 密 度 图 就 是 在 点 的 规则 数组 中 显 天 函数 值 . 越 淡 的 区 域 表 示 的 值 越 高 . 
国 DensityPlot[f[x, y]， {x，xmin，xmaxj) ，|Y，Yain，Ymaxi] 绽 制 函数 f(z，»w} 在 由 
xmin，xmax，Ynin 与 ymax 确定 的 矩形 上 的 密度 图 , Mesh 一 False 去 挥 分 开 可 阴影 区 


域 的 洽 形 格 线 ， 


例 10 DensityPlot[x: + Y, [x, -10, 10}, {y, - 10, 101]; 
DensityPlot[ x + y, {x, -10, 10}, [vy, -10, 101, Mesh —False|; 


ListContourPlot ,ListDensityPlot 与 ContourPlot .DensityPlot 是 类 似 的 , 只 是 它们 的 
参数 为 数 的 列表 .这 两 条 命令 适用 于 定义 在 整数 坐标 网 格 上 的 函数 . 

国 ListContourPlot | array | 生成 二 维 数组 的 轮廓 图 . 

国 ListDensityPlot|array] 生成 二 维 数 组 的 密度 图 . 
其 中 array = i201，z12， | ，jz， zz 1，…… | 表示 在 x-y 平面 上 点 钓 高度, 它 必须 是 幅 豪 
的 二 维 或 更 高 维 数 组 . zj 是 (j， i) 点 的 z 坐标 ,ListContourPlot 利 ListDensityPlot 的 选项 与 
ContourPlot 利 DensityP1lot 的 选项 是 相同 的 , 只 是 坐标 轴 的 标签 在 默 兴 情况 下 是 从 正 整数 1 
开始 的 .选项 MeshRange 可 以 改变 举 标 轴 的 标签 . 

* MeshRange 一 [| xmin，xmax| ，|Yymnin，Yyaaxr| | 分别 为 x 轴 与 了 Y 轴 加 上 有 从 xnin 到 
xmax 以 及 队 ymin 到 wmax 的 标签 . 


例 11 lst = Table[Randonm[ ], {x,1,10}, fy,1,10}]; 一目 成 10x10 的 随机 数组 . 
ListContourPlot[1st, MeshRange 一 | | - 5, 5}, {3, 7}1]; 
ListDensityPlot| lst, MeshRange 一 | | - 5, 5}, {3, 71}1]. 


ContourPlot3D 是 contourP1lot 在 二 维 空 间 中 的 形式 , ContourP1lot3D 绘制 函数 了 的 层次 
曲面 , 即 点 集 (x，y，z) 使 得 A(x，y,，z) = 卡 成 立 ， 
ContourPlot3D Lf[x, y, 2], {x, xnmin, xmax}, {y, ynin, ymax}, |z, zmin, zmax | ] 
在 由 xmin, xmax, min, ax, zmin 与 znmax 确定 的 僵 子 中 绘 出 层次 曲面 并 wy] 
=0 的 二 维 轮 遍 图 . 
ContourPlot3D 包含 在 软件 包 Graphics* contourP1lot3D* 中 ,因此 在 使 用 前 要 上 载 这 个 软 
件 包 . 
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-点 = 浊 


D 二 
ContourPlot3D 的 最 禹 用 选项 为 ， 
Contours 一 |k1，k2，… 上 | 绘制 相应 于 k1,k2， 


10.1, 妓 只 绘制 一 张 层次 曲面 . 
PlotPoints ->[nx, ny| 确定 在 z 方向 与 y 方向 上 分 别 要 计算 的 点 数 , plotPoints 


重 
一 mn 于 价 于 PlotPoints ->{n, nl. 默认 值 为 Eletpoints-=|13，5| ， 


… 的 层次 有 曲面 . 默认 值 为 Contours 一 


例 12 所 Graphics*™ ContourPlot3D ~ 
ContourPlot3D [z- -¥, {x, -5, 5}, {y, -5, 5}, fz, 0, 10|, 
Contours ->|0., 5. | ， 
BoxRatios 一 {1，1，1|， 
PlotPoints —5]; 


ListPlot3D 是 ListPlot 在 三 维 空间 中 的 形式 ， 


国 ”ListPlot3D| array] 根据 给 定 的 高 度数 组 , 生成 一 4 空间 中 的 曲面 , 共 中 tdTrray = 
ee ,2 表示 点 (j,i1) 的 z 坐标 ,必须 其 至 少 2 x 2 维 的 


看 赛 数 组 . 
国 ”ListPlot3D| array，shades] 生成 曲面 ,并且 根据 在 数组 shades (GravyLevel, Hue, 
RGBColor) 中 的 描述 加 上 阴影 ,如果 array 的 维 数 为 mxn, 那么 shades 上 必须 其 有 维 数 


(mnm 一 1)7xfn 一 二). 


选项 MeshRange 控制 x 轴 与 y 轴 上 的 标签. 
MeshRange ~ ||xmin, xmax|, ynmin，ymaxj}] 分 别 为 x 轴 与 Y 轴 加 上 从 xnain 到 | 


ee a 入 


Fp i 
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xmax 以 及 从 ymin 朋 ywmax 的 标签 ., 默 以 值 为 MeshRange 一 Automatic, 它 用 从 1 开始 


的 整数 作为 标签 ， 
例 13 lst = i141， 5，2， 2 | 3 ,1,， 4|， | 3， le 3s 2)}; 
shades = {|GrayLevel[.4], GrayLevel[ .5], GrayLevel[.6]}, 


IGrayLevel[.7], GrayLevel[ .8|], GrayLevell .9]}|}: 
ListPlot3D[ lst, shades |: 


ContourPlot3D 的 商 启 形式 为 DistCcontourP1ot3D. 
* ListContourPlot3D[ array] 绘制 在 array 中 数值 的 轮廓 图 , 其 中 array 为 表示 了 值 
的 三 维 数组 . 
ListContourPlot3D 包含 在 软件 包 Graphics~ContourPlot3D* 中 ,因此 必须 在 使 用 前 上 载 
这 个 软件 包 .ListtontourPlot3D 的 最 常用 迁 萝 为， 
"Contours 一 [Kl1，kK2，*…) 绘制 对 应 十 函数 值 k1，k2,，… 的 轩 序 ,默认 值 为 Contours 
一 10,1, 因 此 只 给 制 一 个 层次 匆 曲 面 . 
.PlotEoints — {nx, ny| 确定 在 方向 与 Y 方 同 上 分 别 权 计算 的 点 数 .PlotPoints 
一 na 等 价 于 FlotBoints 一 |n，ni ,默认 值 为 PlotPoints 一 13，5:， 
。 res 一 True 绘制 坐标 办 以 夏 对 应 的 标 和 车 . 默 这 值 为 hxes 一 False. 
* MeshRange 一 | | xmhin，xmaxl，{Ynin，Yymarji，{ zuin，zaarll 分 别 给 x 轴 ,v 轴 ,z 轴 
如 上 从 xmin 到 xanax 从 in 到 ymax 蓉 及 从 zmin 到 zmax 的 辟 数 标签 . 


例 14 在 这 个 例子 中 ,我 们 生成 函数 f(xz，y，z) = 六 + 六 + 六 的 一 组 离散 值 , 并 绘制 对 应 于 


| 
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CR 
=0.5 与 有 =1.5 的 两 个 轮廓 .所 生成 的 曲面 为 球面 ,但 大 球 被 画 在 一 个 不 能 完整 包 
含 它 的 盒子 中 ,这 样 就 导 雍 在 图 形 中 两 个 球 都 是 可 见 的 ， 
<Graphics*™ ContourPlot3D~ 
lst = Table[x +YyY +z,|x, -1, 1, .25}, {y, -1, 1, .25|,[z, -1, 1, .25|]: 
ListContourPlot3D [lst, MeshRange *{{-1, 1}, {-1, 1}, |{-1, 1| | ， 

Contours —*|.5, 1.5}, Axes -True] ， 


习题 解答 
5.12 给 出 f(x，y) = sinzx 二 siny 在 正方 形 -4rsz， ys4r 上 的 轮 廊 图 , 并 与 国 数 的 三 维 
图 形 作 一 对 比 ， 
舞 : # 


Plot3D[ Sin[x] + Sinly], {x, - 4x, 4n|, ly, ~ 4n, 4n}, PlotPoints —50]. 
ContourPlot[ Sin[x] + Sin[y], {x, - 4x, 4r}, {y, - dn, 4n), PlotPcints —=50]. 


5.13 比较 函数 f(x， y) 三 sinxy 在 矩形 一 xn 入 zx， yn 上 的 营 廓 图 与 密度 图 
为 了 得 到 光滑 的 图 形 ， 我 们 使 用 PlotPoints-—>50 
ContourPlot|[ Sin[x 了 ]， | x， 一 于， 区 | ， | Y， 下 甩 ， 部 | ， PlotPoints 一 ”50 |]: 
DensityE]ot[Sinlz y¥], {x, ~- n, x}, ly, -rx, nl, Plotpoints 一 50] 
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5.14 给 出 离散 图 数 Quotien[x, y] 举 x 与 y 从 1 变 到 10 时 的 轮 廊 图 与 密度 图 . 
解 FEF 


lst = Table[Quotient[x, y], fx, 1, 10}, fy, 1, 10}]; 
ListContourPlot|[ 1st ] ， 
ListDensityPlot[1st]; 


5.15 仿 f(z, yx)=5r7+2y?+z2, 而 出 当 k = 1, 4 9，1f，25 时 的 层次 曲面 
Fr，3，z) = 大 .只 男 出 y 守 0 的 部 分 , 从 而 所 有 的 曲面 都 可 见 . 
解 EF 
六 Graphics~ ContourPlot3D ~ 
ContourPlot3D [Sx + 2y + zw?, {x, -5, 5}, {vy, 0, 5}, [xz, -5, 5), 
Contours ~*{1, 4，9，16，25 | ， 
BoxRatios 一 |1，1，1} ，PlotBoints -5]， 


5.16 构造 一 个 由 介 于 0 与 10 之 间 的 随机 数 形成 的 5x5 维 数组 , 并 作出 这 些 值 对 应 的 列表 
图 形 . 
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解 FF 
lst = Table[Random[ Integqer, {0, 10}], {x, 1, 5}, {y, 1, 5}];ListPlot3D| lat|]; 


5.17 计算 f(z,，y，z)=x -yy 在 介 于 -5 到 5 之 间 整 数 点 的 值 , 并 利用 ListContour- 
Plot3D 画 出 柱 面 x 一 y= 天 =0，2,5 的 图 形 . 
解 # 


我 们 利用 x,y 与 = 的 整数 值 构造 列表 1st. 

raphics“ ContourPlot3D" 

1st = Table[x ~- ¥, ls, -5, 5}, fy, -5, $5}, {x, -5, $1]; 

ListContourPlot3D [lst, Contours — {0,, 2,, 5,)}, Axes —True, 
MeshRange —= {| - 5, 5}, | -5, 51}, {~ $, $1}}]; 


5.3 特殊 的 三 维 图 形 


在 软件 包 Graphics ~Graphics3D ~ 中 包含 大 量 实 用 的 绘图 命令 . 当然 , 与 所 有 的 Mathe- 
matica 软件 包 一 样 , 在 使 用 共 中 的 命令 之 前 , 必须 先 上 载 这 个 软件 包 ， 
蚁 ”BarChart3D[| array] 利用 array 确定 高 度 . 从 而 构造 三 维 的 柱 形 图 .其 中 array = 
za， 212， zz 性 {ij) 的 局 度 . 
任意 三 维 到 形 选 项 都 可 以 用 在 Barchart3D 中 .另外 ,还 可 以 合用 下 述 选 项 ， 
* XSpacing 与 YSpacing 确定 在 工 方向 与 y 方 向 上 柱 之 间 的 中 高 .它们 的 值 必 须 介 丁 
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0 与 :之 间 . 歌 认 值 为 Xpacing 一 0 与 YSpacing 一 0( 即 没有 距离 ). 
*。 SolidBarEdges 一 False 去 挥 柱 之 闫 的 边 寞 . 


* SolidBarREdqgeStyle 确定 柱 边界 的 绘制 方式 . 默认 值 为 SolideBarEdgeStyle 一 
GrayLevel[0]. 


s SolidBarStyle 确定 柱 表面 的 样式 .默认 全 为 SolidBarStyle 一 GrayLevel [0.5|], 


例 15 之 Graphics -Graphics3D ~ 


18t = | [1， 5 4 |， 1 5， 5， 了 7， 8 |， 19， 10,11, 1 
BarChart3D lst, RxesLabel 一 全 zx Y, 21]; 


BarChart3D[f lst, XSpacing —*.5, YSpacing —.5, AxresLbel =| x, ‘¥, 2z |]; 


ScattarPlot3D 是 ListPlot 的 二 维 形式 ,后 者 在 二 维 平面 上 绘制 帕 离 获 点 构成 的 图 形 ， 
加 ”ScatterPlot3D[1st] 在 三 维 盒子 中 绘制 包含 在 1st 中 的 点 形成 的 图 形 . 1st 必须 是 
由 子 列表 构成 的 列表 , 每 个 子 列表 由 二 个 数 枸 成 ,表示 点 的 坐标 ， 
scatterPlot3D 接受 在 第 四 章 讨 论 的 PlotStyle 选项 . 另外 ,PlotJoined 一 True 把 点 连接 
起 来 .ScatterPlot3D 包含 在 Braphics~ Graphics3D -软件 包 中 ， 


车 下 面 这 个 例子 中 , 我 们 生成 50 个 随机 点 ,然后 在 三 维 空间 中 接 椒 同 的 方法 面 出 它 的 图 
形 . 


例 16 < 六 Graphies ~ Graphics3D" 


1st = Table[Random[ Integer, {1,10}],{50},1{3})]; < 生成 50 个 随机 点 ， 
SecattexP1ot3D[1st|]， 


ScatterPlot3D[ lst, PlotStyle —PointSizel| .02]]; 
ScatterPlot3D lst, PlotJoined 一 Truej; 
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ListSurfacePlot3D 从 列表 中 指定 的 顶点 构造 和 多边形 网 格 . 

国 。 ListSurfaceplot3D[1st] 出 在 lst 中 指定 的 顶点 构 阁 二 维 的 光 边 形 网 格 , 其 中 lst 
形式 为 
i Yr 2 | 


1 xa1， Y213 z21 | ， | 3x22 YY22) z22 | ee 


例 17 这 Graphics ~ Graphics3D"~ 
lst = Table[ {x, y, x - YY}, {x, -3, 3], |y, - 3, 3]]; 
创建 在 双 有 曲 抛 物 面 z 一 x- y* 上 的 49 个 点 . 
ListSurfacePlot3D| lst, Axes True, BoxRatios —={1, 1, 1|]]; 


旋转 曲面 就 是 由 沿 给 定 直 线 旋 转 一 曲线 得 到 的 曲面 .命令 Surface0OfRevolution 就 可 以 
构 阁 这 样 的 曲面 .根据 选项 的 不 同 , 它 其 有 各 种 形式 , Surface0fRevolution 包 人 党 在 软件 包 
Graphicsa ~ SurfaceOfRevolution™ 中 ，, 

加 ”SurfaceOfRevolution[f[x]，|x，xmin,， xmax| ] 通过 绕 = 轴 旋 转 曲 线 z = f(r), nin 

<xsxnmax 构造 旋转 面 . 

SurfaceOfRevolution[f[z]，{x，xmin,， xmax)j,， {18,0 nin,， 8 max] 通过 绕 zx 轴 旋 转 

曲线 = = F(z) ,xmin 委 x 和 xmax 构造 部 分 证 转 面 , 即 min 扎 9max. 

国 SurfaceOfRevolution| {xtt]， Yit]， zit]]， t,tnmin，tmax| ] 通过 绕 = 轴 旋 转 参 数 

曲线 这 = Tt wy 二 yt) 二 z(t), tmin 夺 ttmax 构造 旋转 面 . 


在 下 面 的 例子 中 绕 x 轴 旋 转 曲 面 z = x* 构造 完整 的 或 部 分 的 旋转 曲面 . 


例 18 < 入 Graphicsa™ SurfaceOfRevolution~™ 
SurfaceO0fRevolution| x:, Ix, 0, 31]; 
SurfacaOfrevolution| x:, [|x, 0, 31, {8, 0, 3x/2]]; 


选项 Revolut ionAxis 可 以 指定 不 同 于 x 轴 的 其 它 旋转 轴 . 
和 RevolutionAxis 一 > |x, 天 | 曲线 谨 rz 平面 上 原点 与 {xz，z) 点 回 连 并 旋转 ， 
* RevolutionAxig -一 xz ¥，z| 曲线 沿 空 间 中 原点 与 (z，y，z) 点 间 连 线 旋 转 . 
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例 19 oraphics™ SurfaceOfRevolution ~ 

Surface0tRevolLlution [x, {x, 0, 31}, RevolutionAxis -| 1 0|, 
BoxRatios 一 i1，1，1 | ， 
Ticks —FAaAlSse, 
AxeaLabal —*| “x, “vy, “2 )]: 

Surface0fRevolution [x, [x, 0, 3}, RevolutionAxis >{[1, 1, 1}, 
BoxRatios —*=|1, 1, 1}, 
Ticks —Fal ge, 


AxesLabel —| x, "y , “2 


s xX 3 E 
曲线 二 x 窒 反 00,0) 曲线 二 党 点 (O00 
与 点 员 0 中 的 连 线 舵 转 . 与 虚 j1) 的 连 线 旋转 . 
习题 解答 
5.18 构造 表示 = 5 时 帕斯卡 三 角形 的 三 维 柱 形 图 
解 5 
a ! Es 
Pascal 三 角形 是 二 项 式 系 数 c(n， k)= iT 的 表示 ， 
< Graphics Graphics3D ~ 
nt 
cln, k= (n-k)! 和 < 注意: 如果 K >> n,cin,kj=0. 


1st = Table[c[n, k], fk, 0, 5}, fn, 0, 5})]; 
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Ai 


BarChart3D[ 1st, MxesLabel —{“k", “n”, “c[n, k]”}, 
Ticks — |Range[0, 5], Range[0, 5], Range[0, 10]| |]; 


5.19 画 出 在 嘿 旋 线 x =sin 2t,y =eos2t,z = 上 的 离散 点 图 形 , 其 中 :上 从 0 变 到 10, 步 长 
为 0.25. 


解 上 

Graphics™ Graphics3Dp ~ 

lst = Table[ {Sin[2t], Cos[2t], t}, It, 0, 10, .25|]; 
ScatterPlot3D [ 1st, FlotStvle — PointSsize [.05|], Rxes 一 
False|; 


s,20 利用 曲线 z= sin zx,0S&x 志 2 构造 旋转 曲面 ,旋转 轴 分 别 为 (1) = 轴 ;(ii)x 轴 ， 
解 上 


‘Graphics ~ SurfaceOfRevolut ion ~ 

SurfaceOfRevolution [Sin[x], {x, 0, 27}, Ticks —False, 
AresLabel -—* "x, “Yy, “zs ||; 

SurfaceOfRevolution [Sin[x], {x, 0, 27|, RevolutionAxis —{1, 0}, 


i un 


Ticks False, AxasLabel 一 人 FT] 


S$,21 
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画 出 滑 坦 线 z = x 旋转 曲线 x = 2,0<sx 委 1 所 得 旋转 曲面 的 图 形 . 
解 上 E 


Craphics ~ SurfaceOfRevolution ~ 
SurfaceOfRevolution [x , {x, 0, 1:!, RevolutionAzis —»|1, 1|}, 


AxesLabel —{x’, "vy, “zs)|, Ticks 一 了 False] 


5,4 ”标准 形状 一 -三 维 图 形 基 本 单元 


加 Graphics3p[ 基 本 单元 ] 或 者 Graphics30[ 基 本 单元 , 选项 ] 创建 三 维 的 图 形 对 象 , 可 


以 用 Show 命令 疹 看 结果 ， 


标准 的 基本 单元 有 


Cuboid[ [x, y,，z}] 为 三 维 的 图 形 基 本 单元 ,表示 和 角 点 在 (xz，yY z) 的 单位 长 方 体 ( 羡 
方 体 ), 所 有 边线 平行 于 坐标 轴 . 


Cuboid[ [x1i，y1l，z1}，{x2，Y2，z2| ] 表 示 长 方 体 (平行 六 面体 ), 其 对 角 点 为 (xl， 
yl, zl) 和 T(x, v2, 22). 


Line[ [xz1，YL1，21j| ，|x2，Y2，z21，…] 男 出 连接 (xz1， 刀 ，z17，fx2， 了 2，z2),… 的 一 
系列 线段 


Point[ x, Y，zj}] 画 出 坐标 为 (zx，Y，z) 的 单个 点 . 


Polygon[ |x1，Y1，zl1} ，{ xz2， 籽 2，z2|，…] 加 出 顶点 坐标 为 (x1, yl, z1)，(x2，Y2， 
z2)，… 的 填充 多 边 形 . 


Text[ 表 达 式 ，|x,，Y，z}] 创建 由 中 心 位 于 (xz，Yy，z) 的 表 还 式 文 本 构成 的 图 形 基 本 
单元 . 
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例 20 Show[Graphics3D[ {cuboid[ {0, 09, 0}], Cuboid[ (1, 1, 1}, {2, 3, 4}]}]， 
Axes 一 True，Ticks ={|0, 1, 2},10, 1, 2, 3),10, 1, 2, 3, 4}}]: 


例 21 vertices = {110, 0, 0}, {2, 2, 0}, {0, 2, 1})}, 10, 0, 2)}; 
Show [Graphics3D[Polygon[ vertices]], Axes—*True, 
Ticks —*{{0, 1, 2}, {0, 1, 21}, {0, 1, 2})]; 


除 此 而 外 ,利用 包含 在 Graphics~ Shapes ~ 中 的 共 它 三 维 图 形 基 本 单元 则 可 以 方便 地 绘制 

类 似 于 球面 . 锥 面 柱 面 等 标准 形状 .注意 在 使 用 前 上 载 这 个 软件 包 . 

*。 Cylinder[z，h，n] 使 用 n 个 多 边 形 给 制 一 个 圆柱 , 其 半径 为 +, 半 高 为 h. 

=。 Sphere[r, n, za] 使 用 n(m 一 2)+2 个 多 边 形 给 制 半径 为 r 的 球面 ， 

。 Cone[r，h, n] 使 用 n 个 和 多边形 绘制 底面 半径 为 r, 半 高 为 h 的 图 锥 面 . 

。 Torus[rl，r2, n, wm] 使用 nxnm 网 格 绘制 半径 为 1 与 2 的 圆 环 面 . 

。 ”NoebiusStrip[r1，r2，pn] 使 用 2n 个 和 多边形 绘制 未 径 为 rl 和 r2 的 hius 带 . 

。 Helix[r, h, m, n] 利用 mxnm 网 格 绘制 半径 为 -~, 半 高 为 b 有 mm 个 来 回 的 螺旋 面 . 
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ea DoubleHelix[r, h, m, nj 利用 nxm 罗 格 绘制 半 答 为 工 ， 半 高 为 h, 有 nm 个 来 回 的 双 
哈 证 面 . 
如 果 不 给 出 参数 ,例如 Cone' ], Mathematica 就 会 使 用 其 默认 值 . 默认 值 分 判 为 ， 
Cylinder[1, 1, 20] 
Sphere[1, 20, 15] 
Cone[1, 1, 20] 
Torus[1, .5, 20, 10] 
MoebiusStrip[1, .5, 20] 
Helix[1, .5, 2, 20| 
DoubleHelix[1, .5, 2, 20 | 


例 22 < 之 Graphics ~ Shapes - 
Show[ Graphics3D[L Cylinder|[ | ]; 
Show[ Graphics3D[ Spherel ] jj ; 
Show[ Graphics3D| Conel ]]]; 
Show[ Graphics3D|[ Torus| ] ]]; 
Show[Graphics3D[NMoeabiusStripl ] ]]; 
Show[Graphics3D[ Helixl ] ]]; 
Show[ Graphics3D[ DoubleHelix[ ] ]]; 


加 ”WireFrame[ 对 象 ] 把 在 构造 对 象 时 使 用 的 全 部 多 边 形 显示 为 透明 的 .可 以 作用 到 任何 
包含 基本 单位 Polygqen, Line 与 Point 等 的 Graphics3D 对 象 上 ， 


例 23 之 Graphics * Shapes" 
object = Graphics3D[Terus[ | |; 
Show| object |; 
Show[ NireFrame[ object | ]; 


在 Graphics* Shapes "中 有 二 条 进行 空间 变换 的 命令 ， 


Mathematbcas 使 用 指 上 有 


例 24 


2 


CH 


RotateShape[ 对象, 外, 8, yw] 利用 欧 拉 角 ?$5, 8, 旋转 对 象 . 
TranslateShape[ 对 象 ，|x，Y，zj]] 把 对 象 平 称 向 让 (x, y,，z). 

AffineShape[ 对 象 ，|xscale, yscale, zscale|] 把 x， Y，z 坐标 分 别 进行 内 子 为 xs- 
cale，vscale，zscale 的 不 缩 变 搞 . 


Graphics ~ Shapes -~ 

shape = Conel ] ; 

object = Graphics3D| shapej] ; 

Show[ object]; 

Show [RotateShapel object, 0, nx/2, 01]; 

Show[ RotateShapel object, 0, /2, mr/2]]; 

Show[L object, TranslateShape[ object, {1, 2, 31]]; 
shrunkenobject = AffineShapel object, {,5, .5, .51]; 


Show[object, TranslateShape[ shrunkenobject, {1, 2, 31]' 


必 欧 溢 鱼 是 描述 在 到 ?空间 中 按 特 定 顺序 进行 三 次 旋转 的 变换 方法 ， 首 先 语 = 轴 艇 转 #$ 角 , 接着 沿 新 的 » 轴 旋 转角 ， 
最 后 汽 这 些 旋转 所 得 的 新 辅 旋转 #$ 钙 ， 


习题 解 和 涂 


5.22 绘制 互相 垂 言 的 两 个 圆柱 的 图 形 ， 
解 8 
Graphics™ Shapes -~ 
cY11 = Graphics3D[Cylinder[1, 5, 20]]; 
cyl2 = Graphics3D[RotateShape[Cylinder[1, 5, 20], 0,7/2, 0]]: 
Show[L cyll1, eyl2 ] ; 


5.23 构造 一 个 位 于 半 征 为 1 的 球面 内 部 区 同 柱 . 
解 I 
由 于 球面 的 半径 为 1, 所 以 使 用 默认 参数 .为 了 使 圆柱 包含 在 球面 内 部 , (半径 ) 与 
及 (高度) 必须 满足 r*+ 有 = 1. 这 里 选择 r=1/2, 有 =y3/2. 为 了 使 轩 福 可 见 , 我 们 把 
球 向 加 成 线 框 样式 . 
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Mathemarica 使 天 指南 


“raphics™ Shapes ~ 

sph = WireFrame[Graphics3D[ Sphere[ ]]]; 
eyl = Graphics3D[Cylinder[1/2, v3/2, 20]]; 
Show| sph, cyl, Borxed ~*False |; 


Ti 
i 
Bw 二 


i 
必 蚀 
| | 


5.24 绘制 网 个 艇 套 的 图 环 面 . 
解 8 
我 们 使 用 两 个 默认 尺 症 的 圆 环 面 (x1 = 1,r2 = 0.5), 第 “个 圆 环 面 必须 旋转 90", 并 
旦 平移 0.5 个 单位 ,以 便 得 它们 互相 箭 到 ,但 不 相交 . 
‘Graphics ~ Shapes ~ 
torl = Graphics3D[Torus[ ]]: 
tor2 = Graphics3D[TranslateShape[ 
RotateShape[Torus[ ], 0, x/2, x/2], {10, .5, 0}]]; 
Show[torl, tor2, ViewPoint *11.75, -2.8, 0.75)|, Boxed False]; 


5.25 构造 一 个 动画 ,演示 螺 就 线 绕 x 轴 盘 旋 的 过 程 ， 
解 # 王 
我 们 使 帮 侠 省 尺寸 的 螺 访 线 helix[ ]. 当 欧 拉 角 # 从 0 变 到 2x 时 ,螺旋 线 完 成 一 次 旋 
转 . 下 面 使 用 12 幅 图 像 进行 动 另 演示 . 
‘Graphics ~ Shapes ™ 
helx = lHelix| 1: 
rotatedhelix = RotateShape[ helx, k, 0, 0]; 
Dol Show| Graphicas3D| rotatedhelix], Roxed 一 False, {|k, 0, 11n/6, mn/6}] 


选择 这 些 图 像 的 单元 括号 ,然后 进入 Cell 全 Mnimate Selected Graphics 就 可 以 实现 动画 
演示 了 
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第 六 章 洲 解 方 答 


6.1 求解 代数 方程 


一 般 找 数 方程 的 解 可 以 用 Solve 前 令 求 出 . 这 个 傅 令 非常 容易 使 用 ,但 必须 注意 一 点 , 在 
方程 左右 两 边 之 间 要 使 用 双 等 号 == , (在 前 面 讲 这, 双 等 与 表示 俱 辑 等 式 ;lhs == rhs 当 且 
仅 当 1bhs 与 rhs 大 相国 值 时 , 值 为 True, 省 则 人 慎 为 False.】 

由 Solve 确定 的 根 是 用 下 述 形 式 的 列表 表示 的 ，; 

| 一， Ix—x21, "| 

记号 x>xl 表示 x 的 解 为 x1, 但 x 并 没有 被 x1 取代 ,如 朵 方程 上 有 一 个 根 各 数 天 >1, 那 么 
就 重复 出 现 六 次 ， 

图。 Sovle[ 方 程 ， 变 量 ] 尝试 求解 关于 变 基 的 方程 ， 

对 于 方程 组 , 方程 的 形式 为 | 方程 1， 方 程 2，…| ,变量 妇 可 以 是 单个 变 莉 ,也 可 以 是 几 个 
变量 构成 的 列表 .另外 ,方程 也 可 以 是 用 经 《还 辑 与 ) 取 开 的 单个 方程 表示 .如 果 只 出 现 了 一 
个 变量 ,变量 参数 可 以 不 出 现 . 


例 1 在 这 个 例子 中 , 由 于 只 有 一 个 变量 ,因此 不 需要 给 出 变量 参数 
Solve[ Tx + 3== 3x+8| 


[一 


如 果 要 求解 的 方程 中 包含 两 个 或 更 多 的 屋 基 ,那么 我 们 襄 必须 指定 灵 相 应 于 哪个 变量 求 


解 ， 
例 2 Solvelay+b==cxt+d] 注意 a 与 y 以 及 c 与 x 之 可 的 空白 ,此 处 ] 
Solver : SUALS: 的 宇 昌 相当 重要 ,可 以 用 * 民 替 空门. 


Rauations ay not give soluticns for all solve variaples. 
(不 能 给 出 方程 相应 十 所 有 求解 变量 的 解 .) 
libp>dtcx-ay!! 

我 们 必须 指定 要 求解 的 变量 ， 

Solvelay+b ==txt+d,x] 

Lr 


Solvelay+b ==¢xt+d,Y| 


(| _b-d-ecx)! 
7 a i | 


Solve[ay+b ==ex+d,b] 
iib—d+cx—-ayti 
Solve[ay+b ==cext+d,d] 
id—bp—-cx+avtl! 


(2 +3y=7 
‘AT tdy=10 


例 3 于 面 这 个 例子 演示 了 胡可 求解 简单 方程 组 ， 的 方法 . 
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Solve[ {2x+ 3y ==7,3x+4y ==10|, {x,y|] 或 考 / 这 里 没有 必要 指定 [x | 
Solve[2x+3Y ==7&g&E3x+4y ==10], {x, yj] | yl, 因 为 我 们 有 的 是 两 
‘x2, y+1| | 个 谈 坚 的 两 个 方 禹 
如 果 未 知 数 的 个 数 超过 方程 的 个 数 , 那么 就 必须 指定 所 希望 求解 的 变量 . 否则 就 会 得 色 
Mathematica 的 默认 处 理 结果 ， 


例 4 Solve[ {x+2y+z ==5,2x+y+3z == 了 |， [vy, 2 
3+ 


当然 , Solve 并 不 是 只 能 求解 线性 方程 . 


例 5 Solvelax +bxte ==0,x] 


x 


一 已 一 vb? 一 dac —b+ vb — dac | | 
六 已 全 | | 


注意 Mathematica 用 仁 意 的 ai 了，r 表达 证 方程 的 一 般 解 . 


,| x 
1 


例 1 Solve[x +Y¥ ==5&&x+y ==3] 


| | 一 2,X 一 1 ,Ya4-y5,x 一 1 + 51， 1Y 一 全 ty5, x,— 1 一 “5| | 


由 于 Mathematica 把 方程 的 解 表 未 为 嵌 套 列表 , 因此 不 能 直接 把 它 作为 其 它 数学 结构 的 
输入 .但 是 有 两 种 方法 可 以 调用 其 中 的 值 , 而 不 必 采 用 照抄 或 粘贴 的 方法 . 

(a) 如 果 希 望 利 用 由 Solve 得 到 的 解 计 算 表达 式 的 值 , 可 以 科 用 取代 运算 符 /. ,这样 
Mathematica 就 会 自动 代 人 相应 的 值 ， 

(hy 由 于 解 就 是 列表 ,因此 可 以 用 Part 或 [[]] 从 列表 中 “ 提 肥 " 解 . 
在 下 面 两 个 例子 中 演示 这 些 方法 的 使 用 . 


1 ， 立 _ 
例 7 假设 希望 来 解 方程 组 | ，，> ， 并 计算 表达 式 V55+ 史 在 这 些 解 上 的 值 .为 此 下 面 首 
完 利用 Solve 命令 计算 方程 组 的 解 , 为 了 简单 起 见 , 把 解 记 为 solutions. 
solutions = Solve[ {x +y ==5,x+y ==3), {x,y|] 
[iy>1, x*2), {ya4, x* —1}| 
J +/ . SOlutions 
(v5, v17] Mathemartica 生成 一 个 列表 ,包含 表达 让 所 有 的 值 . 


例 8 假设 楼 计算 下 述 方程 所 有 根 的 平方 和 ， 
x — D1x? +175x1 — 73Sr3+ 1624z2 — 1764 x + 720 = 0. 
为 此 , 先 利用 Solve 命 今 求 解 出 方程 的 所 有 根 . 
solutions = Solve [x' - 21x° +175 x — 735 x + 1624 x: -1764 x+720 ==0] 


[ix>1!, ix=2|, Jx—>3!, |x>4!, Ix—>5!, x=>61! 

仔细 查看 solutions, 可 知 它 是 包含 子 列表 的 列表 .上 先 看 其 第 一 部 分 . 
solutions|[[11]] 

i x 1| 


由 于 这 个 列表 只 有 一 部 分 ,我 们 可 以 提取 它 的 内 容 . 
SolLutiecongef[1，1]] 


” 131 : 


:14 了 ， 
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KX—*] 

为 了 得 到 这 个 形 还 式 的 第 一 部 分 ( 葡 头 后 面 的 数 ) 我 们 进一步 地 担 取 : 

solutions[ [1, 1, 2]] 

1 

六 理解 为 什么 会 这 样 , 我们 深入 地 查看 一 下 solutions[[1, 1]] 的 结构 . 

FullForm[ solutions[[1, 1, 2]|]] 

Rule| x, 1| 

x 一 1 就 等 价 二 Rulefx,11, 从 而 可 以 用 solutions[[1，1, 2]] 提 取出 它 的 第 二 个 参数 . 
类 位 地 , 其它 解 可 以 用 solutions[ 2，1，2]], solutionsff3，1,，2]] 等 表达 式 提取 出 
来 .为 了 得 到 它们 的 平方 和 ,输入 


Sun[ solutions[[k，1，2]] ~ 2， 1,61] 或 者 >, solutions[[k,1,21]’ 
91 


sclve 的 设计 方法 ,决定 了 它 可 以 求解 代数 方程 ,但 有 时 候 它 也 可 以 求 出 超越 方程 的 有 限 
解 .这 时 会 得 到 一 条 警告 消 妃 ,说明 它 并 没有 求 出 所 有 的 外 . 


例 9 Solve[Sin[x] == 1/2, x] 
Solve; ;lfun: 


lnverse functions are being used by Solve, so some solutions may net be found. 


《Solve 使 用 了 及 葡 数 ,因此 有 可 能 有 些 解 没有 求 出 .} 


Vogl 


三 洒 划 求解 的 方程 是 下 盾 的 ,那么 Mathematica 就 会 退回 空 晶 列表. 


例 10 Solve[|2x+3y == 5,4x+6y ==11|] 
} | 

如 果 方 程 的 解 中 包含 复数 ,那么 就 用 - 工 的 千 次 表示 ,然而 如 果 希 望 得 到 更 符合 惯例 的 

表示 , 那么 可 以 在 Solve 命令 的 石 边 插 人 
/la_—*b ) ;> [aConplexrExpand[b]) 

这 里 : > 指 的 是 RuleDelayed.， 

旭 打 只 希望 得 到 实 根 ,那么 可 以 上 惫 上 旺 scellaneous -Realonly- 软 件 包 . 这 样 就 会 给 所 有 
的 复 根 标 上 ~ Nonreal ~ 


例 11 Solve[fx” ==1] 
上 一 1 
Solve[x ==1]/.(a 一 b ) :>(a 一 CompbLexExpand[b]) 
1 av3l | .1 3 | | 
2 22 
< Miscellaneous ~ Realon1ly-~ 
Solve[x == 1] 
Honreal.; :warning: Nonreal number encountered, ( 授 到 了 了 非 实 数 ,) 


iix—1!, lx—*NMonreall, |x—*Nonreal!:! 


x |, KC— 


对 于 所 有 的 代数 方程 而 言 ,即使 理论 上 人 解 必 存在 的 ,但 Mathematica 也 有 可 能 无 法 求 出 它 
的 解 来 . 如果 Mathematica 无 法 求解 一 个 方程 , 它 就 用 符 手 形式 用 示 解 .对 于 大 多 数 情形 , 这 种 


一 一 一 一 


形式 解 是 没有 任何 用 处 的 ,因此 给 出 数值 解 就 更 恰当 了 .数值 近似 解 可 以 用 NSolve 命令 求 出 . 
国 ”NSolve[ 上 方程 ， 变量 ] 求解 方程 关于 七 量 的 数值 解 ， 
图 “jsSclvel 方 程 ， 变 量 ，n] 求解 方程 关于 变 基 的 数值 解 , 达到 n 位 精确 度 . 
与 Solve 一 - 样 , 如 果 没 有 歧 凡 的话 , 可 以 不 给 出 变量 列表 参数 ， 


例 12 equation= x -16x +61lx -22x-12 ==0; i 为 了 避免 重复 输入 ,用 aquation 
Solvelequation] 表示 要 求解 的 点 程 . 


Tx-y5l, xm3+y5), 5-291 |x=>5+2y71 

HSolve[ equation | 

| |x 一 0.291503|，| xDO.763932| ，jx-w5.23607|，|xm10.29151 | 
HSolve[l equation, 25] 

{lx —0,29150262212918118100323151， 
ix—>0.7639320225002103035908261， 
|x—5.236067977499789695409171|， 
x10.29150262212918118100323!| 


有 时 候 , 如 果 所 要 求 的 有 效 数字 很 多 , 那么 NSolve 可 能 无 法 给 出 解 .这 是 因为 Mathemati- 
ca 在 内 部 计算 时 采用 16 伺 有 效 数 字 . 对 于 这 种 情况 ,Msolve[ 方 程 ， 变 量 ]，nj] 就 完全 行 得 通 ， 
其 中 必 为 所 要 求 的 有 效 数字 位 数 . 


例 13 NSolve[Yx + vx+x ==10,x,20] 
x 5.,796171!} 
N[Solve[lyx + /x + x == 10, xl， 20] 
| |x—5.,7961701257629574569|1 
所 博 增 根 , 就 是 一 个 并 六 是 方程 真正 根 的 数 ,但 却 在 求解 过 程 中 得 到 了 它 . 当 求 解 根 式 方 


程 时 , 就 会 遇 到 增 根 , 例如 , 在 求解 .z = -3 时 , 它 虽 的 没有 实 根 ,但 采取 平方 求解 过 程 就 会 得 
到 增 根 x =9. 


“由 于 精度 瞧 乏 , 最 后 只 给 出 了 6 位 有 效 数字 . 


VerifySolutions 选项 决定 是 否 要 Mathematica 判断 所 得 解 是 举 为 增 根 , 默认 值 
VerifySolutions True 就 会 从 解 吉 中 删 去 增 根 , 如 果 需 要 这 样 的 增 根 , 那么 就 可 


以 合用 YerifySolutions 一 False 选项 . 
例 14 Solve[x+vyx== 5] 
1 二 Ga- 名 
Solvelx +t/x == 5, VerifySolutions ->False] 
ee AD). dar va) 


对 于 关于 x 的 方程 wr = 5,Solve 会 给 出 解 x = bj/a .然而 如 果 a = 5 =0, 那么 每 个 数 x 
部 是 它 的 解 .Reduee 命令 可 以 用 来 描述 所 有 可 能 的 解 . 
器。 Reduce[ 方 程 ， 变量 ] 简化 方程 , 并 党 试 求解 变量 . 如 果 方 程 为 恒等式 , Reduce 就 返回 
值 True. 如 果 方 程 为 玫 盾 的， Reduce 就 运 回 值 False. 
在 解 的 描述 中 ,Reduce 使 用 符号 gg&{ 他 辑 与 ) 和 | | (人 逻辑 或 ). && 优先 于 | | 


例 15 Solve[a x == b,x]| 


" 154 ， 


0.1 


6.2 


0.3 
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! GO 
站 和 
Reduce[a x == b,x| 


a ==0 &k b ==0!|x -= 卫 
总 


家 & 所 二 == 或 oAA0, r= pia. 
Reduce[x -9 == (x+ 3}){x -3),x] 

TFUE 

Reduce[ x -10 == (x+3)(x- 3),x) 


False 


了 避 题 解 管 


求 出 过 (2,5) 司 《7, 9) 两 点 的 年 线 方程 . 
解 上 


直线 的 一 般 方程 为 y= ar+B, 代 入 两 点 的 坐标 ,就 得 到 方程 2a + b= 5 所 7a + 太一 9 
Solwe[2a+b ==58&&7a3a+b == 9] 


Le 人 


因此 直线 的 方程 为 y= Sz+ 
求 出 过 (1，4)，(2,， 7) 与 (4, 11) 三 点 的 圆 的 方程 . 
解 #E 


贺 的 一 般 方程 为 xz?+ y +ar+by+c=0. 代入 给 定点 的 坐标 ,就 得 到 方程 17+ a t+4B 
+ c=0,53+2a+7h+c=0,137+4da+1lb +ce=0. 
Solvel {17 +at+ 4b+t+c ==0,53+2a+7hb+c ==0, 
137 + Aa+ 11b+e ==0|] 
i ia> — 54, p—*6, c—13!| 
因此 贺 的 方程 为 xz* + y 一 S4x+6y+13=0. 


解 方程 x*+ + xi+ x +x+2= 人 0. 
解 I 
Solve[x +x +x +x +x+2a ==0] 
i xRoot[2 二 亲 1+ 半 1 + 半 1? 二 二 14+ 间 158,1]|， 
|x> Root[2+ 寺 1 十 井 1 + 间 1”7+ 卡 14 十 半 15&，2]!， 
1 xm Root[2 十 闪 1 二 间 1+ 间 1 十 井 1+ 井 158，3] |， 
x 一 Root[2+ 打 1 十 间 1* 十 并 17 十 间 14+ 才 15&,，41]!， 
jx 一 Root[ 作 十 间 1 十 半 1 二 村 1 十 亲 1s+ 要 15&,，5]t| 
由 于 Mathematica 无 法 精确 地 求解 这 个 方程 ,内 此 它 给 出 符号 解 . 然而 , 我 们 可 以 苍 出 它 
的 近似 解 . 
NSolve[y +x +x +x txt+2 ==0] 
fix — 1.21486|, {x -0.522092— 1.06118 i!, 
Ix -0.522092+1.06118 i, jx*0,629523— 0.883585 i, 
{x—*0.629523 + 0.883585 i|| 
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6.4 求解 关于 ww, xy, 的 下 述 方程 组 ,然后 再 确定 当 > =1, z=2,z=3 时 的 解 . 
: + T+ y+ 三 3， 


x0 + 3r + 4y + Sz = 10, 
4 . 


| 


WW 一 一 YY 二 六 
解 上 


equations = [w+ixiy+z ==3, 2w+3xt+4y+S5s ==10, w-x+y—-z ==4) 


solutions = Solvelequations, {Ww, x, yl|| 


| | 1 
(二 (5 十 4z), x ( 一 1 一 22j,Y 了 (9 一 4z) | 
5SDLIUtIons7 ，z 一 】 


让 
4， 2 34 


aolutions /. 之 一 2 


[ER 
4 2°Y 4 


solutions /. zz—3 


6.5 求 出 一 个 数 ,其 自身 与 其 平方 ,立方 的 总 和 等 于 30, 要 求 所 得 结果 具有 20 位 有 效 数字 . 
解 闻 
NSolve[x+x +x == 30,x,20] 
{ix— ~ 1.8557621138713175532 — 2,7604410593413850003 工 | ， 


ix— — 1.8557621138713175532 + 2.7604410593413850003 主 |， 
jx—2,71152422774263510G641| 


6.6 对 于 二 和 角 隔 数 方 程 2sin* x 十 1 = 3sin zx, 分 别 关 于 sinz 与 工 进行 求解 . 
解 妖 


为 了 关于 sinx 求解 ,可 以 使 用 
Solve[2 Sin[x] +1 ==3Sin[x]] 


|sin[x]- 寺 | 1sin[x]-=1 

刘 果 要 对 于 x 求解 ,那么 只 会 得 到 主 值 解 (利用 反 防 数 ). 
Solve[2 Sin[x]*:+ 1 == 3 Sin[x], x] 

SO Ve : 1fun. 


Inverse functions are being used by Solve, so some solutions may 


not be found. (Solve 使 用 了 反 函 数 ,因此 有 可 能 有 些 解 没有 求 出 .) 


[| 


6.7 求解 关于 x 的 方程 ;e+e =3. 
3 
Solvel Exp[2x] + Exp[x] == 3, zx] 


SOl1VE: : 1fun: 


Inverse functions Br being used by Solve, so some solutions may 
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mr 


not be found. (Solve 使 用 了 反 国 数 , 因此 有 可 能 有 些 解 没有 求 山 .) 
| [xrLog| 2 一 工 + /3) | |， (xi x+ Log| (1 + V13 | | 


6.8 在 同一 坐标 邓 中 画册 函数 f(r) = x 一 7x: +2r+20 与 g(x)= x 的 图 形 ,并 分 别 淮 确 
和 近似 地 求 出 它们 的 交点 . 


解 4 

f[x ] = x -7x +2x+20; 

glx_] = x; 

Plot[ if{x], glx]}, {x, - 10, 101]; 


xvalues = Solve[f[x| == 可 [ 工 ] ， x |; 

{x, f[x]}/.xvalues / Simplify 

112,41,13— v19,28- 6/19|,13+ v19,28 +6v1911 
% A//N 


|12.,.4.!, | —1.3589, 1.84661!, i7.3589, 54.,153411 


6.9 在 代数 中 有 一 个 定理 , 说 的 是 如 果 p(xz)=ar + an_ir” +an-2ar" “十 …+ 
az + av 那么 方程 p(x)=0 的 所 有 根 的 和 为 池 一 ， 秉 梭 为 (一 1)” .对 于 下 述 方程 
验证 这 个 定理 . 

207x" +32z5 一 221xz5 ~ 118 z++ 725 7 7 - 18r: - T7267x 7 252 = 0. 
解 8 后 


solution = Solve [20x' + 32 x ~- 221 x ~ 118 x* +725 x 18 -3726x+252 ==0] 
-于 和 ,| 


Sun[ solution[ [Kk, 1, 2]]，{k,，1, ?1] 或 者 》， solutien[[k,1,2]] 


_ 8 -一 一 7,_ <1 3 总 
5 人 5 


Broduet[solution[[k，1，2]]，{x，1，7j] 或 者 [| solutiont fx,1,2]] 
k=1 

二 = ui 一 ?0 — 7 02 _ _ 63 

n=7;(—1) a ( 1) 30 一 5 


在 .1 求 出 关于 工 的 方程 ar -= cr + a 的 所 有 可 能 解 . 


第 六 章 求解 请 程 153 - 


解 8$ 
Solvelax+b ==cx+d,x] 
(ee 
二 秆 | 
这 个 解 需 要 前 提 wu 天 ce .可 以 用 Reauce 得 到 下 一 般 的 解 . 
Reducela x +h ==cox+d,xl 


一 六 二 这 
己 一 怠 


a ==c SE&b ==d||lx == a -cD 


6.2 求解 超越 方程 


所 请 起 越 方 程 就 是 那些 不 属 十 代数 方程 的 方程 , 总 然 在 有 限 的 情况 中 ,可 以 用 Solve 与 
NSolve 处 理 简 单 的 三 角 薄 数 方 程 或 者 指数 方程 ,但 这 些 命 令 本 来 就 不 是 设计 用 来 求解 包含 复 
杂 想 越 函 数 的 方程 的 , Mathematica 命令 FindRoot 是 处 理 这 些 方程 的 更 佳 上 其 . 

FindRoot 利用 村 代 方法 计算 方程 的 根 , 因 性 必须 指定 起 始 值 , 有 时 也 称 之 为 初始 估计 植 . 
为 了 得 到 最 好 的 缩 果 , 初始 佑 计价 应 当 人 发 可 能 地 党 近 所 期 望 的 根 ， 

田 了 indRoot[ [hs == rhs, 1x，x0}] 利用 初始 值 为 x0 的 牛顿 方法 求解 方 壬 hs == rhs. 

加 了 indReot[ [hs == rhs，{x，x0，xl}] 利用 初始 值 为 x0 和 xl 的 ( 修 工 ) 截 线 法 求解 方 

程 ihs == rhs. 
加 ”FindRoot[ 1hs == rhs，|x，x0，xzmin，xmax} ] 尽力 求解 方程 ,但 是 如 捍 达 代 超 出 了 区 
间 [xmin，xmax] 就 会 停止 ， 

如 果 在 js == rhs 处 指定 的 是 一 个 国 数 ,那么 FindRoot 就 会 计算 函数 的 零点 .所 亩 函数 

了 的 零点 ,就 是 满足 f(x) =0 的 数 工 . 


例 16 方程 sn x=x -1 有 两 个 根 . 从 左 厂 两 个 隆 数 的 图 形 可 知 , 它们 的 交点 靠近 w= -1 


和 二 =1. 
Plot[ {Sin[x], x* -1}, [x, -~ x, zx}]; 


\ | | 


FindRootiSin[x] == x -1,|x, -1}] 
|x— — 0.636733| 

FindRoot [Sin[x] == x -1,{x,1!] 

1x 1.40962| 


例 17 方程 x+ sinx = 0 只 有 惟一 解 x=0., 下面 看 看 如 果 初 始 估 计 值 离 解 太 二 的 话 , 会 发 生 
什么 事情 . 
FindRoot[x + Sin{x] == 0, [x, 100|] 


rindRoot: :cvnwt: Newton’s method failed to converge to the prescribed accuracy 


“了 3 入 


Mathematica 合用 指南 


after 15 iterations. 
(在 15 深 侈 代 后 ,和 牛 旦 方法 也 不 能 收敛 到 指 候 精度 .) 
Iix—* ~ 0.000774542| 
扇 省 情况 中 ,FindRoot 在 退出 之 前 要 进行 15 次 达 代 .在 退出 之 前 进行 的 迁 代 次 数 由 选项 
MatIterations 确定 . 


"MaxIterations 一 n 要 求 Mathematica 在 退出 求解 算 东 之 前 最 党 进行 ea 次 选 代 ， 


例 18 在 前 面 那 个 例子 中 , 进行 25 次 送 代 ,从 而 得 到 更 好 的 疆 论 . 
FindRoot [x + Sinfx] == 0, [x, 100}, NaxIterations 一 25] 
[x—7.744317860602923 x 10 "1 
FindRoot 会 尽力 发 现实 根 ,然而 , 如 果 指 定 了 复 的 初始 值 , 或 者 方程 中 包含 复数 ,那么 就 
会 给 出 复 根 .注意 下 面 这 个 例子 中 的 方程 没有 实 根 . 


例 19 BindRoot[ 妨 +x+l ==0, {x,1}] 
FindRoot; :cyvnwt: Newton’s method failed to converge to the prescribed accuracy 
after 15 iterations. 
(在 15 次 选 代 后 ,牛顿 方法 也 不 能 妆 伍 到 指定 精度 . ) 
FindRoot [x +x+1 ==0, {x, 1}] 
ix= -0.5 + 0.856025 | 
如 果 哲 顿 方法 不 能 解决 给 定 的 问题 ,那么 割 线 方法 就 是 一 个 很 好 的 替代 选择 . 


例 20 方程 Vix| +x-~1=0 在 0 与 1 之 间 有 一 个 根 ,然而 由 十 Mathematica 不 能 计算 左边 函 
数 的 导数 ,因此 牛顿 方法 失效 ,这 时 只 要 指定 两 个 初始 值 就 会 让 Mathematica 使 用 割 线 
方法 计算 方程 的 根 ， 

FindRoot[ vAbs[x] + x- 1, {x,1)]) 
F-ndRoot: :fre : Could not symbolicallyv find the Jacoblian of /Abs[x- + XK 1. 
Try giving two starting values for seach variable. 
(不 能 符号 计算 YabsLx] +x- 1 的 雅 可 比 算 阵 , 因此 不 妨 对 每 个 变量 给 出 两 个 初始 值 
试 一 下 .) 
FindRoot[ vAbs[x] +x-1, |x, {0,1}}] 
{x—=0.3819661 
丸 外 ,有 时 虽然 函数 的 导数 不 能 自动 确定 ,但 是 可 以 利用 Jacobian 选项 使 得 牛顿 方法 成 

功 地 计算 出 根 , 对 于 一 元 函数 , 雅 可 比 拢 阵 就 是 普 道 导数 . 

* Jacobian 一 守 数 “指定 "在 算法 中 所 用 导数 的 定义 .默认 值 为 Jacobian 一 Ratomat - 
ic, 它 要 求 在 有 可 能 的 情况 下 ,符号 计算 出 来 导数 ， 


Tp Sign(t x ) i 1, 如果 工 半 0, , 、 
例 21 、 z| 的 导数 为 | 和 gn(x)= 1 如果 < 人 (验证 这 一 导数 公式 1 ) 

indRo vAbslx) +x~ x obian —» —+9u. 

FindRoct|[ vAbs[x| + 1, |x, 1|}, Jacob + 


ix—*0,3819561 


在 FindRoot 命令 和 其 它 的 数值 算法 中 ,有 两 个 选项 控制 运算 的 精度 . 


中 和 牛顿 力 法 使 用 切线 方向 的 > 截 距 提高 初始 合计 恒 的 兰 确 度 , 因 此 , 如 果 不 能 计算 函数 的 导数 ,那么 牛顿 方法 就 会 失 
效 .虽然 割 线 方法 速度 有 些 悍 , 但 它 使 用 的 是 函数 在 两 个 不 同 点 的 值 , 由 此 计算 割 线 的 zx 截 距 . 


第 六 章 求解 方程 
。 NorkingPrecision 选项 指定 在 内 部 计算 时 保持 多 少 位 的 精确 诬 . (在 大 多数 计 算 机 
上 的 ;默认 值 是 WorkingPrecision ~*16. 
"AceuracyGoal 选项 指定 所 得 结果 应 具有 和 多少 位 准确 有 效 数 字 . 如 果 |1Lhs-rhs|<ac- 
CUurAacyioal, 那么 选 代 就 会 结束 , 默 汰 值 为 AccuracyGoal 一 Mutomat1ic, 艺 蚌 上 比 
WorkingPrecision 小 10 时 数 ， 


例 22 我 们 希望 给 出 方程 cos| 0 | = -最 靠近 5000 的 近似 解 ,准确 到 第 10 位 小 数 


， 100.- _ _x 
FindRoot[ Cos| > ]= < 


1x，5000|] ] 
fx-5000.1 

这 说 明 Mathematica 的 默认 值 不 能 给 出 所 要 求 的 准确 度 , 增 加 WorkingPrecision 
的 值 ,就 可 以 达到 所 要 求 的 精度 . 


100， x 
FindRoot[ Cos[ x ] = -+ 了 ， 


|x—5000.833191159556095898B17| 
在 玛 认 情况 中 , AccuracyGoal 是 比 WorkingPrecision 小 40 的 数 , 因 此 只 有 前 14 位 数字 
是 可 信和 的 , 即 x 二 5000.8331911596. 
对 午 顿 方法 各 进行 改动 ,就 可 以 进行 中 间 计 算 , 并 显示 中 间 计 算 过 程 的 结果 .所 用 方法 就 
是 在 要 求解 的 方程 堪 辽 加 上 额外 的 指令 , 指令 间 用 分 号 隔 开 .在 下 面 两 个 例子 中 就 演示 了 用 这 
种 方法 求解 方程 exz=x 的 情形 . 


|x, 5000}, WorkingPrecision 一 24] 


例 23 为 了 查看 在 求解 方程 e ”= x 的 这 程 中 近似 解 序列 的 收敛 速度 , 我 们 可 以 要 求 Find 


Root 打印 出 中 间 计 算 的 结果 . 

n= -=1; 

FindRootl If [ts >0, Print[n,” ”xl]]ina+ +; Expl - x) ==x, |x, 2})) 
0D 之， 

1 0 .4357609 

2 0.558708 

3 D0.,56713 

4 0 .5657143 

1x-*0.567143} 


例 24 为 了 比较 牛 驾 方 沙 与 割 线 方法 ,我 们 设置 WorkingPrecision-100, 利用 FindRoot 打 
印 上 达到 收获 要 求 时 的 达 代 次 数 ,并 使 用 Tining 确定 程序 花费 的 时 间 ( 具 体 时 间 当 然 
要 所 用 计算 机 速度 有 关 ). 
n=0; 
FindRootln+ + ;Exp[ - x] == x, lx, 1}, WorkingPrecigion -100] /Timing 
n 
10.11 Second, 
x 0.5671432904097838729999686622103555497538B15787186512508 
13513107922304579308668456669321944696175229461| 


9 牛顿 方法 .9 次 选民 ,0.11 种 . 
三 科 ， 


FindRoot[n + + ;Exp[ - x] = = x, {x,1,2},WorkingPrecision -100] /Timing 


“ 1539 。 
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10 ,33 Second, 
X00.5067143290409783872999968562210355549753815787186512508 
1351410792230457930866845666932194459517522946 | | 


nn 


28 | 割 线 方法 ,28 次 法 代 ,0.33 秘 . 


如 具有 所 求解 的 方程 有 一 -个 根 的 重 数 为 2 或 前 多 ,那么 牛顿 方法 就 会 收 化 得 很 慢 ,或 者 根本 
不 收敛 . 对 于 这 种 情况 , 通过 武断 地 选择 -一 个 DampingFactor 吕 能 会 俩 收 钱 得 到 改进 . 
” DampingFactor 一 轩 子 选项 控制 在 牛顿 算法 中 的 收 敏 行为 .在 牛顿 方法 中 的 每 一 步 
的 大 小 部 要 乘 以 因子 的 值 .默认 值 为 DampingFactor 一 1 . 


例 25 RindRoot[(Exp[x] - 1)2，f{x,2]] 一 0 为 二 重 零 点 ， 
FindRoot: :cunwt: Newton s method failed to converge to the prescribed accuracy 
after 15 iterations. 
(在 15 次 达 代 后 ,牛顿 方法 也 不 能 收 伍 到 指定 精度 . ) 
|x—0,000911355| 
FindRoot[ {Exp[x)] - 1})°, |x, 21, DanpingFactor—2] 
|x—7.73452x 10 °°! 
里 然 这 里 没有 显示 , 实际 上 进行 了 从 次 近代 后 就 收效 到 指定 要 求 ， 
FindRoot 也 可 以 用 来 确定 联 立 方程 组 的 解 . 
国 FindRect [方程 组 ,| 变量 1，aij，!{ 灾 量 2，a2]，…] 当 变 基 1, 变量 2, … 的 初始 值 分 
别 为 al，a2，… 时 , 尝试 求解 方程 组 , 这 里 的 方程 组 形式 为 | 方程 1, 方程 2, …|. 另 
外 , 方程 与 方程 之 间 也 可 以 用 && 【逻辑 与 分 开 . 
求解 多 元 函数 的 十 顿 方法 与 一 元 时 的 情形 不 同 , 它 对 初始 值 的 选择 相当 敏感 . 因此 , 这 时 
函数 的 图 形 就 是 相当 有 用 的 帮助 . 


e + lny=2, 


例 26 求解 方程 组 i 
Sl1TLE siTIY 一 : 
首先 咽 出 两 个 方程 的 图 形 . 


当 执 行 这 个 命令 时 , 会 看 到 一 


些 秘 洁 信 息 ,这 时 可 以 不 必 百 


会 它们 ， 
| 


‘Craphics~ ImplicitPlot~ 
ImplicitPlot[ |Exp[x] + Log[Y] == 2, Sin[x] + Cos[y] ==1}, {x,0,2|, PlotRange 
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一 [0 3] 


由 此 可 见 , 只 有 惟 : 解 ,. 信 =1ly=1l 为 初始 估计 值 . 
FindRoot[ | Exp[x] + Logly} == 2, Sin[x] + Cos[Y] ==1), {x, 1}, fy, 1)] 


[Ix—=0.624295, y—1,14233| 
如 果 方 程 中 有 一 个 函数 , 计算 它 的 值 要 花费 很 多 时 间 , 尤其 是 当 需 要 高 精度 解 时 更 为 如 


此 , 那么 下 面 这 个 程序 融 机 当 有 用 . 


InterBolLateRoot[ hs == rhs，{x, a, bj] 利用 初始 值 a 与 b 求 解 方程 ihs == rhs. 


同 FindReot 一 样 ,这 里 也 可 以 用 一 个 蚂 数 代 些 方程 ,这 时 计算 的 是 甬 数 的 零点 ， 
与 FindRoot 用 线性 国 数 (直线 ) 近 人世 方程 的 根 不同 ， InterpolateRoot 利用 三 次 或 更 低 次 


多 项 式 近 似 方程 的 根 . 这样 承 导 致 只 要 计算 更 少 的 画 数值 ,就 可 以 得 到 更 高 精 诬 的 解 . Inter- 
polateRoot 包含 在 软件 包 NumericalNath ~ InterpolateRoot -中 ,因此 在 使 用 命令 前 ,要 上 和 载 
这 个 软件 包 . 


例 27 这 个 例子 利用 工作 精度 为 1000 位 有 效 数 字 计算 贝 赛 尔 函 数 员 Jo(r y》 的 介 于 2 与 3 之 间 


的 零点 .为 了 进行 比较 , 这 里 使 用 了 Mathematica 末 数 Timing. 另外 为 了 节省 空间 , 这 
里 没有 显示 计算 所 得 的 近似 值 . (去 掉 指 今后 面 约 分 号 ,再 委 行 指令 ,就 会 看 到 计算 的 
结果 ,) 

FindRoot[BesselJ[0, x], {x, 2), WorkingPrecision 一 1000]; / Timing 

17.69 Second, Null! 

‘NmericalMath ~ InterpolateRoot ~ 

InterpolateRoot| Bessel] [0, x], {x, 2, 3|, WorkingPrecision —>1000]; /Tining 
14.35 Second, Null| 


了 题解 党 


求解 方程 5cos zx=4- ,确保 求 出 了 所 有 的 解 . 
解 i 妥 


由 于 S$cosz =4 一 z 瘦 且 可 当 Seosz -4+z 一 由 所 以 引进 阵 数 大 (人 一 Seosyr — 4+ 
z" ,并 查看 它 的 x 截 距 .(〈 虽 然 我 们 可 以 查看 两 条 曲线 的 变 点 , 但 这 里 所 用 的 方法 更 痊 
易 确 定 交 点 在 坐标 轴 上 的 位 置 . ) 

f[x | = 5 Cos[x] -4+x; 

Plot[f[xi, |x, - 3,3|]; 

由 此 可 见 , 方程 有 三 个 解 ,分 谭 令 近 
-0.5,0.8 与 1.6， 

FindRoot[f[x], |x, - .5|] 

x— ~ 0.576574| 

FindRoot|f[x], {x, 0.81}) 
lx—>0.797323| 

FindRoot[f{[x], {x, 1.6}] 

ix—*1.61805 | 


6,12 求 出 方程 "sinz =2 的 一 个 解 . 


人 Jotr) 六 向 分 方 种 rw ff xry + xiy= 人 0 的 一 个 解 . 
凶 如 果 你 不 轨 本 复 蛮 基 图 歼 , 那么 不 妨 距 过 这 个 习题 . 
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二 TEL 


0.14 


解 于 

由 于 对 所 有 的 实数 zx, 一 1 入 sin + 衬 1, 所 以 这 个 问题 没有 实数 解 . 这 时 我 们 可 以 通过 给 
定 一 个 复数 初始 值 , 强迫 FindRoot 计算 复数 解 . 

FindRoot[Sin[x] == 2, {x, 1]] 

jx>1.5708 + 1.3416961| 


给 出 方程 + |sin {x ~ 1)|=5 的 有 20 位 有 效 数 字 的 近似 和解 . 
解 #F 


首先 画 出 f(z)=x + |sin (x 一 1)1 一 5 的 图 形 . 
flz ] = x + hbslSin[x-1]]-5 
Plot[f[x)], ix, -10, 10}] 


所 / 
-10 -5 | 6 10 


-10! 


由 此 可 见 , 方 程 具 在 4 与 5 之 间 有 一 个 解 . 

FindRoot[f[x], |x, 5§}] 

FindRoot: ;frjc : Could not synbolically find the Jacobian of |f[x];. Try giving 
two starting values for each variable. 

(不 能 符号 计算 江 [xj! 的 雅 可 比 窍 阵 , 因此 不 妨 对 每 个 变量 给 世 两 个 初始 值 试 一 下 .) 

由 十 Mathematica 无 法 确定 F(x) 的 导数 ,所 以 牛顿 方法 失效 .这 时 可 以 尝试 Work- 
ingBrecision 一 30( 即 比 要 求 精度 多 10 位 ,因为 默认 情况 中 ， AceuracvGoal 比 Work- 
ingPrecison 少 10) 时 的 割 线 方法 ， 

FindRoot [fix}, {x, 4, 5}, WorkingPrecision 一 30] 
x4.,57764001198757729525937359564| 
保留 到 20 位 有 效 数字 , 可知 方程 的 解 为 4.5776400119875772953， 


求 出 抛物 线 y =<2+z 一 10 与 圆 z+:+y 二 25 的 交点 ， 
解 
首先 画 出 它们 的 图 形 ， 


gl = Graphics[Circle[|0, 01}, 5]]; 

g2=Plot[x +x-10,|x, -与 |， 

DisplayFunction —*Identity]; 

Show | gl1, g2, AspectRatio—*Automatic, 
PlotRange —| ~ 10, 10;, Axes —True, 
DisplayFunction -一 $§ DisplayFunction)|; 


抛物 线 y= x + xz 一 10 与 图 zx?+y =25 有 四 个 灾 点 .下 面 求解 这 些 交 点 的 坐标 .由 于 
精确 解 结构 非常 复杂 ,所 以 给 出 数 第 近似 解 . 


0.15 


第 六 章 求解 方程 :163 ， 


NSolveLY == x +x-10Fr +y ==25] 
| iy—>2,.83654, x-* ~- 4.11753!, {iy*3.80098, x—*3.24846}, |y-*— 4d., x —3. 
ly .653752, x—*] ,86907|| 


求 出 虹 线 yy 一 5 一 4 cos8 三 抛物 线 y = 并 的 交点 . 


解 E 洁 
首先 在 同一 坐标 系 中 画 出 两 条 曲线 的 图 形 . 
< Graphics™ Graphics™ 


limacon = BolarBlot [5 - 4Ccos[t], |t, 0, 2x)],DisplayFunction 一 Idantity]; 
parabola = Plot[x, {x, -3,3}, DisplayFunction -~Identity]; 
Show| limacon, parabola, DisplayFunction ~—» $ DisplayFunction]; 


下 面 把 晴 线 的 方程 转化 为 青 角 坐标 
r= — decost 

2 2! 

r=5r —4rcosd TTY 


=rcosg | 
Xx*+y =5 VY 7 + ydr 
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一 


第 一 个 交点 靠近 (2, 2): 

FindRoot[{y ==x ,x +y ==5 Vx + YAx}, {x,2)|, [y, 2}] 

1X1 .53711, vy”2.3627| 

第 二 个 区 点 菲 近 (一 3，6): 

FindRoot[ ly == x, x +Yy == Vr + Ax}, ix, ~ 3)}, |y, 61] 
JIx-> — 2.4552,，y—6.,02802| 


6.16 阿 基 洲 德 蝶 线 x = 8 与 椭 回 4x +9y =400 人 交 于 了 蛙 些 点 ? 

解 8 

raphics™ Graphics™ 

< Graphics™ Implicitplot ~ 

spiral = PolarPloti 8, | 8, 0, 全 如 | ， DisplayFunction -Todentity] ; 

ellipse= ImplicitPlot dx + 9v== A00, {x, -10, 10], 
Plotstyle —Thickness! .01] ， 
DisplayFunction ->*Identity]; 

Show| spiral, ellipse, DisplayFunction —* $ DisplayFunction)]; 


-1 


由 上 图 可 砚 , 交 点 靠近 (4, 6), (一 8, 4) 与 (一 9， 一 2) 点 .为 了 把 极 坐 标 转化 为 衣 多 
坐标 ,应 用 变换 = vxz+ 闪 和 日 = tan ! 《yz 这 样 就 得 到 方程 
Vz +y 二 tan 1(y/ 工 ). 然 而, 如果 应 用 tanf yx?+y2)= wz 的 话 ,牛顿 方法 就 更 稳 


i 


证. ， 


FindRoot[ {Tan[ Vx +Y) == Y/ x dx + ay == 400|, |x, 4}， {Y， 6 | 
{x*3,.93476, y=*6.12891! 


FindRoot[ {Tanl vx + ye] == y/x, 4 + 9y: == 400}, {x, - 8)}, |y, 41}] 
tx -8.04703, v3.95785| 


FindRoot[ {Tan[ vx + 下] == y/x, Ax + 9¥ == 400}, {x, -9|, ly, -2})] 
jx — 9.38786, > -2.29668| 


.17 求 马 下 述 方 程 组 靠近 点 (1，2, 3) 的 一 个 解 ， 


第 六 章 求解 方程 
T+y+z = 6， 
sinr 十 cosy + tanz = 十， 
er + y+ = 3. 
解 上 
FindRoot[{x+y+% == 6€, Sin[x] + Cosfy] + Tan[#] == 1, 


Exp[x] + /y+ == 5), {x, 1}, fy, 21, {z, 3]] 
|x-*1.23382，Yy 1.5696，z-*3.19658| 


“ 163 ， 


第 七 章 ”代数 与 三 衣 


7.1 多项式 


由 于 在 代数 中 非常 普遍 地 用 到 多 项 式 , 因 此 Mathematica 专门 握 供 了 处 理 多 项 式 的 命令 . 

国 。 Folynotialg[ 表 达 式 ， 变 曾 ] 如 果 示 村 式 为 天 于 变量 的 多 项 式 , 把 回 True; 省 则 壕 回 
False, 如 果 在 表达 式 中 只 出 现 了 一 个 改革 ,可 以 不 给 出 屋 量 参数 . 

加 ”Variables[ 多 项 式 ] 给 出 在 多 项 去 中 所 有 独立 亚 基 组 成 的 列表 . 

图 ”Coefficient[ 和 多 项 式 ， 项 ] 给 出 在 多 项 式 中 加 的 系数 . Coefficient[ 条 现 式 ， 项 ， nm] 
给 出 在 多 项 式 中 项 的 n 次 顶 的 系数 . 

图 ”CoefficientList[ 多 项 式 ， 变量] 给 出 在 多 项 式 中 变 基 各 个 蛤 次 的 系数 组 成 的 列表 ， 
从 第 和 次 称 开 始 . 


例 1 PolynonialQ[xw + 3x + 2] 
True 
FolynomialQ[x + 3x + 27x] 
False 
PolynonmialO[x + 3x + 2/Yy, x]| + 对 而 言 ,2/Y 内 常数 . 
True 


例 2 polyi= [x + 1 
poly2 =x - Sx ¥+3xY- 77; 
Variables[ poly2 | 
[x YY| 
Coefficient[polyi, x, 5] 
Pp 
Coefficient[poly2, x | 
3y 
Coefficient[poly2, y, 2] 
了 
Coefficient[poly2, x vy |] 
3 
CoefficientList|polyl, x]| 
:1, 10, 45, 120, 210, 252, 210, 120, 45, i10, 1| 
CoefficientList[poly2, x]| 
1 -77, 3 , -5y, 1i 
CoetficientList[poly2, ¥| 


| x , — 5x’, 3x， 一 了 | 


有 时 蛋 ,把 多 项 式 方 程 的 解 写 作 人 逻 辑 表达 栋 是 非常 方便 的 .例如 ,如 果 x 一 4=0, 那 么 x 
= 一 2 和 或 者 =2. 可 以 用 两 荣 将 殊 的 他 令 Roots 与 NMRoots 批 多 珊 式 方程 的 根 按 这 种 方法 表示 
出 来 .此 时 解 用 符 扎 上 (还 每 或 ) 圳 示 成 下 不 相 区 的 形 陈 . 
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国 。 Root[ [hs == rs， 蛮 量 ] 给 出 多 项 式 方程 的 佣 . 
夯 ”WRoot[ 1hs == rhs， 变星 1 给 出 多 项 式 方程 的 数值 近似 解 . 


例 3 求 出 方程 x4+ x 一 8&x* 一 $x ~- 1$5=0 的 所 有 大 于 2 的 解 . 


solutions = Roots[xt+ x - 8x- 5x + 15==0, x] 


x== 二 -1- V3) lx- 5 -14+ VI3) [lx== /51|x-= -5 


solutions &&x >2 //Sinplify gg 为 Mathematics 的 雇 辑 与 . 见 和 7.4 节 关于 j 


x -= 

numericalsolutions = NRoots![ x’ + wi- Bx- Sx + 15==0, x| 
x== -2.30278 || x== 一 2.23607 || x==1.30278 || x==2,23607 
numericalsolutions Eg& x > 2 // Simplify 

xX == 2.23607 


多 项 式 的 队 法 名 证 任意 给 定 两 个 多 项 式 p 与 :, 其 中 deg(p) 空 (deg(s), 都 存在 惟一 确定 
的 多 项 式 g 与 7, 使 得 
pix) = qtr) s(x) + r(x), 其 中 deg(r) < deg(s). 
在 Mathematica 中 生成 商 与 余 式 的 命令 为 
加 ”PolynomialQuotient[p，s，x] 给 出 p 除 以 s 所 得 的 商 式 , 表示 成 x 的 函数 . 余 式 被 忽 


咯 . 
国 PolynomialRemainderlp, s， xz] 让 回 yj 除 人 以 8s 所 得 的 余 式 . 余 式 的 次 数 小 于 s 的 次 
数 . 


例 4 p=x- Tx + 3x- Sx 十 号 
Ss=X + 1 ; 
q= PolynomialQuotient[p, s, x] 
10 -x- Tx+x 
rE= PolynonialRemainder[p, B, Xt] 
一 下 一 4x 


加 Expand[ 多项式] 展开 号 积 与 瞄 , 护 多 项 式 写 成 单个 项 的 和 的 形式 . 

加 ”Factor[ 和 多项式] 尝试 在 整数 环 上 分 解 多 项 式 , 如 果 不 能 分 解 的话 , 多 项 式 不 发 生变 
化 ， 

国 。 FactorTerms[ 多 项 式 ] 从 多 项 式 中 分 解 出 来 每 项 的 公共 常数 ,Factor[ 和 多项式 ,变量 ] 
会 分 解 出 不 包含 变量 的 公共 单项 式 ， 


到 Collect[ 多 项 式 ， 变 量 ] 处 理 有 两 个 或 更 多 变量 的 多 项 式 , 把 它 岩 示 成 变 技 的 多 项 
式 ， 


例 与 PolY = 和 六 z+ 十 Bx yz 中 10z yz; 


Factor[ poly | 

ZX V2 (5+ yz + 4Xz -一 Boly 被 完全 分 解 . 
FactorTerms| polY，z] 

2y re (Sx YY + 3x yz + 42) 二 只 有 不 包含 = 的 项 被 分 解 出 来 . 


FactorTerms[poly, vy| 
2x 2 (5 t 3¥ 2 t+ 4 yz ) + 只 月 不 包间 y 的 项 被 分 解 出 来 . 


4 1 如 ， 


例 6 


Mathematica 使 用 指南 


FactorTerms[| poly, z] 
2x ry (SY 2 + yz + 4xz” 一 只 有 不 包 会 x 的 项 被 分 解 出 来. 


poly=1 + 2x+ 3yY + 4xY+ Sxy+ 6xy+ x; 
Collect|poly, x| 

1+37+x2+ dy + 6Y) + xti5y + 7Y) 一 x 的 攻 次 被 整理 出 来 . 
Collect| poly, ¥| 

1 + 2x+ (3 + dx + Sx)y + (6x + 7x°)Y < 一 y 的 窜 次 被 整理 出 来 . 


睦 认 情况 下 , Factor 只 会 在 整数 环 上 分 解 因 式 .有 一 个 选项 可 以 改变 这 一 点 . 


*。 Extension 一 | 扩展 4， 扩展 2,…} 用 来 指定 可 以 使 用 的 一 组 代数 数 . 如 果 只 有 一 
个 扩展 ,那么 不 必 加 上 大 括号 1. Bxtension 一 hutomatic 表示 扩展 到 包含 所 有 出 
现在 多 项 式 中 的 代数 数 全 体 的 域 上 . 


和 GaussianIntegers -* True 舍 许 在 包含 i 的 鳌 数 从 上 进行 分 解 因 式 . 届 外 ， 在 扩展 集 
中 也 可 以 包含 1 或 I. 


例 7 Factor[x: - dlx: + 400] 


(~2 + x)(2 + x)( -5+ x)(4 + x)(S + x) 

Eactor[x — 41lx + A400,， GaussianIntegers 一 人 True | 

(—2 + x)(—2i+ x)(21 + x)(2 + x){(—5 + x)(S + x) 

Factor[x  — dlx’ + A400, Extension —y5] 

-Sx -2 + x)(2 + xyv5 + x)(d + x)(5 + x) 

Factor[xs - 41xi+ 400, Extension > {I, v5 ]] 

-(vV5-x)(vV5-ix)(v5 + ix)(-2 + x)( -2i+ x)(2i+ x)(2 + x){(y5 + x) 


多 项 式 pl，po,，* 的 最 大 公 因 式 (GCD) 就 是 能 同时 整除 pl ，p2,… 的 最 丙 坎 数 和 多项式 . 


pi，p2，,"… 的 最 小 公信 式 (LCM) 就 是 能 同时 被 p;,，ps,… 整 除 的 最 低 次 数 多 项 式 . 


国 。 RoLYnomialsGcD[P1，p2，…] 计算 出 多 项 式 pl，p2,，… 的 最 太公 因 式 ， 
加 ”PolynomialsLCM[pl，p2,，…] 计算 出 多 项 式 pl，p2,，… 的 最 小 公 倍 式 . 


例 8 p={x - i}{x ~ 2)’(x - 3) 


q= {x - 1) [x - 2)(x - 3)"; 
PolynomialGCD[p, 9g] 

(—-3 + xR-2+ x)(-1+ x) 
PolynomialLCM| p, 4] 

(3 + x -2+ x) -1 + x) 


缺 省 情况 下 , Folymonial6CD 与 PolynomialLCM 假定 老 项 式 的 系数 为 有 理 数 . 问 Factor 一 


样 , Extension 选项 可 以 用 来 指定 一 组 代数 数 ( 可 以 包含 1), 供 计算 时 使 用 . 


例 9 p=x -5; 


dS=x + V5; 
PolynomialGch[p, qi 
1 
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PolynomialLCN[P，9] 

(YS5 +x)(-5+x) < -不 使用 Extension 一 Automatic, 认为 /5 为 单独 变量 . 
PolynomialGCD[p, gq Extension 一 Rutomatic] 

5 +x 

PolynomialLCM[p, q, Extension Automatic | 

(-5+ x) 


下 然 Mathematica 会 自动 展开 素 积 与 向 的 整数 进 次 ,但 是 妍 果 措 数 非 整数 ,那么 袁 达 式 就 
不 会 变化 .为 了 强 记 指数 被 “分 配 " 开 , 可 以 使 用 FowerExpand 命令 . 
图。 BowerzExpand[ 表 达 式 ] 展开 积 与 商 ,它们 的 开 方 以 及 对 数 的 内 套 宕 次. 


例 10 (abh 
a b’ < 由 于 指数 为 整数 ,所 以 Mathetnatica 把 它 分 配 开 . 
(a b)” 
(a b)™ 一 由 于 指数 未 定义 ,所 以 Mathematica 不 做 任何 操作 
PowerExpand[ (a b}”| 
a b” + 利用 PowerEKxpand 强制 进行 展开 . 


当 使 用 了 多 值 鲜 数 时 , 必须 仔细 使 用 PowerExpand 命令 . 


例 11 yab/.la—-—1, b—-1| 


1 
PowerExpand[ va bl 


veh 
PowerExpand| vab/. [a—-1,b-> -1| 
-1 < 一 上 先 用 Powargrpand 进行 展开 ,然后 代入 ,5 的 第 -1. 


下 面 是 演示 PowerExpand 用 法 的 另外 几 个 例子 . 


例 12 {a')'// PowerExpand 
a 
【ab) 7 PowerExpand 
B 上 
bog[xY] /7 FowerExpand 
Log[x] + Log[y] 
Log[x/¥| // PowerExpand 
Loglxj - Logly] 
Log[x] // PowerErpand 
Y Log[ x] 


习题 解答 


7.1 判断 1+zsiay+z ceosy+xey 是 否 为 zx 的 多 项 式 , 它 是 3 的 多 项 式 吗 ? 


“109 


,， 130 ， Mathernatiea 使 用 指 队 


解 到 
Polynemial0l1l + x Sinly)] + 
x Cos[y] + xw Exp[ly], x] < 在 这 个 表述 式 中 读 为 y 为 常数 . 


Trie 
PolynomialQ[ 1 + x Sin[y] + x Cosly] + x Exply |， 了 |] 


False 


7.2 展开 多 项 式 (2 x + 3)* 后 系数 都 是 多 少 ? 
解 # 
poly= (2x + 3)°; 
CoefficientList[poly, x] 
1243，810，1080，320，240，32! 


7.3 在 展开 (zr + y + zx) 后 ,zy = 的 系数 是 多 少 ? 
解 ”4 
poly= (x + ¥ + zl); 
CoefficientList[poly, x y* z:] 
60 


7.4 完全 展开 (r+ w+ 1)'. 
解 #5 


Erxpand[ (x + a + 1)*] 
1+4at+6a :+da +a + dx+ 12ax+ 12a x+ dax+6r +1i2axr + ae + de + da + x 


7.5 把 (x + g + 1)' 表 示 成 x 的 多 项 式 . 
解 # 
Collect[(x + a + 1})*, x] 
1+4a+6a +4a +a +(4+12a+12a + da )x+(6+12a+6a )x + (4+ 4a}x +x 


7.6 分 解 多 项 式 
poly = 67r + xy 1lry — 6y° — Sriz+ 1lzyz + lly’z 一 rz — Gy 十 区 3 
并 相应 于 z 求解 方程 aoty =0. 
解 上 
poly= 6r +t+x y-lixy -6 -5x ztllryzti1ly -2xr -6Yz2+ a2; 
Factor [poly] 
{XxX + vo— ZI3x + 27 一 ZIU2x — 3v +2) 
Roots[ poly == 0, z] 
z==x + y||z==3x+2y||z==—2x+ 3y 


7.7 计算 x + 22-3z + 7r 一 10z +5 除 以 刀 - 4 的 商 与 余 式 ,并 验证 答案 的 正确 性 ， 
解 上 


p= + 2x -dr TI 10x 十 5 
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7.8 


7.9 


7.10 


7.11 


Ei 


s=¥ -4 

q = Polynomialluotient[p, s, 下 | 
15 +x+ 2 如 

r= FolynonialRemainder[p, s, x] 
bs — bx 

checkpoly = 9 ¥8 + r /Erpand 
5 — lO0x + 7x- 3x + 2x + x 
checkpoly == Pp 

True 


把 (x 十 y+ z) 表示 成 = 的 多 项 式 . 

解 上 7 

Collect[ {x + y + z)”, 2] 

w+ xy + 3xy + y+ (3 + 6xy + 3y)z + (3x + 3v)z+ 2 


今 p=2x4— 15r + 3972 — 407 十 12,4 一 4z4 一 24z + 45z2 一 29 + 6, 计算 它们 的 最 
大 公 因 式 与 最 小 公 倍 式 , 并 证 明 所 得 结果 的 乘积 等 于 加、 

解 ”# 

p=2x - 15x + 397 ~ 40x + 12; 

a= 4x - 24x + 45 - 29x + 6; 

a = PolynomialGcn[P，dj 

-6 + 17x 一 1 + 2x 

b= FolynomialtCN[ p, q] 

(—2 + x){6 — 29x + A457 — 24x + dx:) 


Expand[a * b] == Expand[p x g] 
Tue 


在 整数 环 以 及 包含 /5 与 1 的 数 域 上 分 解 z4 - 25. 
解 上 

Factor[x: ~ 25] 

(—5 + xX)(S + x) 

Factor[x: - 25, Extension —*{/5, 11!] 

~- (5 - x)(V5-ix)(S+ix)(5+ x) 


展开 1n Es . 


解 二 


a ree 


>(alog[x] + b Log[y] - c Log[z]) 


有 理 函 数 与 代数 函数 
有 几 杀 命令 运 合 于 处 理 有 理 酒 数 (分 于 与 分 母 均 为 多 项 式 的 分 式 函 数 ). 


,171 ， 


“172。 


一 


例 14 


例 15 


Mathematicd 二 月 指 裔 


Humerator[ 分 式 ] 返回 分 式 的 分 子 . 

Denaoaminator[ 分 式 ] 返回 分 式 的 分 母 . 

Cancel[ 分 式 ] 消去 分 式 中 分 子 与 分 母 的 公 因子 .选项 Bxtension 一 Butomatic 使 得 操作 
在 出 现 分 数 中 的 代数 数 上 进行 . 

Together [表达 式 ] 利用 公分 母 把 表达 式 中 的 项 合并 起 来 ,并且 消 去 分 六 与 分 母 中 的 公 
因子 . 

Apart[ 分 式 ] 把 分 式 玫 示 成 部 分 分 式 的 和 ， 


zx 十 5 和 十 | 
Cancel | 5 + 3x+2 
当 3 和 十 下 
1 十 其 


1 
一 土 十 艾 
Mpart| 3 全 - 1 


| 2 一 一 3 
+ mm 
一 工 十 其 1+x 1 + 十 


由 于 在 默认 情况 下 , Mathematica 会 把 负 指 数 转化 为 等 价 的 正 增 数 , 因 此 Wamerator 与 Denom- 


inator 的 结果 可 能 与 期 望 的 不 同 . 
例 16 frac = 
Nimerator[ Fracl! 
Dencminator [frac | 
xy 
国 。 ExpandNumeratcr[ 表 达 式 ] 把 表达 式 中 的 分 子 展开 ,而 分 母 保持 不 变 . 
国 ”BxpandDenominator[ 表达 式 ] 把 表达 式 中 的 分 母 展开 , 而 分 子 保持 不 变 ， 
图 ”RxpandAl1{[ 表 这 式 ] 把 表达 式 的 分 子 与 分 母 者 展开, 开 把 结果 写成 万 公 分 母 分 式 的 和 . 


例 17 


{x+ 1) [x+ 2) 


[x+3) (x+4) 
Expandiumerator| expr | 

2+ 3x+ x 
(3+ xX) (4+x) 
ExpandDenominater[ expr | 
(1 + x) (2+x) 

12 + 了 X+ 并 
ExpandAll | expr | 

2 3x x 


Expr 


一 一 一 + ;十 一 一 一 一 一 
12+7x+x 12+7xtxw 12+7x+ 


2+ 3x+xe 
12+7x+y 


本 节 描 述 的 命令 并 不 居 只 适用 有 理 函 数 (多项式 的 商 ), 对 于 那些 包含 根 式 的 代数 表达 式 , 以 
及 包含 图 数 或 背 未 定 闵 对 象 的 非 代数 表达 式 也 同伴 适用 . 另外 ,如 果 在 命令 中 设置 了 选项 生 ig 
一 True, 那 么 Mathematica 就 会 诬 用 标准 的 三 角 函 数 恒等式 简化 表达 式 . 在 7.3 节 中 将 对 此 详 如 
讨论 ， 


例 18 Fxpand|[ {1+vxl'| 
1 + Eyx+ 15x + 20322+ 15x2+ 6x + oe 


全 19 mert| 1 + D1 + 2 


1 一 -一 一 一 


1+vx 2+ 


习题 解答 


7.12 在 微 积分 中 表达 式 大 2 一 六合 与 导数 有 密 过 关系 .对 于 f(x) 二 zx9,4 = -3 简化 这 个 表 
达 式 


B561 一 2187x + 7T29x — 243 二 Blx — 27x + gx — 3x + 


六 工 已 三 和 旨 和 机 一 
7.13 把 ,本 与 和 组 合成 个 分 式 ， 


解 ”过 
Tbgether [a/b + c/d + e/f] 


bde + bef + adf 
bdf 


(z+2)(7° +3)(2r -7) 1 
7.14 展开 73 2)(>_ 5) + DO 的 分 子 和 分 母 


解 《本 
_ 
kxpandliunerator| RxpandDenoninator| 1 2 2 el ee- 5 = 


-42— 9x— Bx -370 + x 


-660-148x- 23x: + 6 + 


(x+2) (x + 3)(2x-7}) 
BrpandR11| 二 人 [x 5) de) |// gether 


~ 4d2— 9x— Bx - 3x + 2x 
-60—148x- 23x + Ex + 
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Mathematica 全 用 指南 


7.15 ”把 2 十 3, 7 莹 2 与- 闫 一 加 起 来 ,并 把 结果 表示 成 一 个 分 式 ,分 子 与 分 母 均 为 展开 形式 


区 < 十 了 
解 # 
_2xz+3. 
了 sri 
_ 2 
了 3x+1 
= x ， 
x +1 
Tbgethec [p + ag + r]//ExpandDenoninator 各 亲 丰 合用 
" /7 ErpendDencainator., 
17 ~ 48x + 51x — Bdxw + 56x _ 
" 就 -hh 国 : 了 
-了 一 16x+ 8 -1629 + 15x 入 于 村 会 表 不 大 宝生 本 生生 下 
— 1 
7,1 = 是 什么 ? 
6 C+ TtzTTT 的 部 分 分 式 展开 是 什么 
解 


(x— 1)° 
Mpart | 二 + De | 


+t 729 +x 32 288 _ 4(4+x) 
425{ — 4+x) 5S(1 +x}: 25(1+x) 17(1+x) 


7.17 ”把 前 一 习题 中 的 分 式 展 成 具有 线性 复 分 母 的 部 分 分 式 的 和 . 


解 巡 
Mpart| 一 一 一 ED | 为 了 强迫 Mathemanca 用 线性 复 分 母 表示 结 
(x+1) (x- 1) {x+1)(x~4) 果 把 z2+1 分 解 为 + De 一 了) 
81 2 ,81 
+ 729 7 17 17 17 32 288 


一 一 ~ 二 二 
425(— 4+x) ” itx i+tx 5(1+x): 25(1+x) 


7.18 把 (e+ e*}* 表 示 成 指数 函数 的 利 . 
解 
Rxpand[ (EF + EE*)’] 


志 站 十 生 它 六 十 后 它 5x 十 4 ex 二 ee 
?7.3 三 角 函 数 


里 然 在 前 一 节 讨 论 的 命令 也 适用 于 三 角 通 数 , 但 这 样 做 并 没有 利用 三 角 函 数 恒等式 进行 简 
化 .为 了 把 这 些 恒等式 结合 到 运算 过 程 中 , 必须 设置 选项 下 19 一 Teue., (对 于 除 simplify 外 的 所 
有 命令 而 言 , 战 认 值 为 个 jg 一 False. ) 下 面 的 例子 演示 了 了 其 中 的 差别 ， 


例 20 cancel| | 
sin| x| 
-1+Ctos x|’ 
Sin| x | 
Cancel| > - cos[x] 
Csce| x | 


,Tig rue | 


例 21 mgether| 
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Cos[x|: +. sin[x] | 
4 -Sin[x]: 1- Cos[x] 
Cos[x]- ~ Cos[x] + Sin[x]* — Sin| x]’ 
(~1+Cos'x])(- 1+Sin[x}) 
Cos[x] Sinlx} 
get | moe | 
2 


Tg 一 Tue 除了 着 用 于 加 函数 以 外 ,也 同样 适用 于 双 曲 郑 数 ， 


Expand[ [Cosh[x] + Sinh[x]’) (Coshlxl: - Sinh[x]?]] 

Cosgh[x] -Sinhf xl 

Erpand[ [Cosh[x] + Sinh[x}’){Cosh[x]: - Sinh[x]:), Trig 一 True] 
Cosh[x 扩 + Sinh| xj] 


为 了 对 三 角 晴 数 进行 其 它 的 樟 作 , Mathematica 专门 提供 了 下 述 命 令 , 这些 函 数 同 时 适用 于 
圆通 数 与 双 曲 函数 . 


Triggzpand [表达 式 ] 利用 某 种 二 角 恒 等 式 展 开 表 这 式 ， 

TrigReduce[ 和 表达 式 ] 把 表达 式 中 的 三 骨 函 数 的 履 积 与 基 写 成 共有 复合 参数 的 三 角 表 达 
式 , 从 而 把 表达 式 简 化 为 三 角 阔 数 的 线性 形式 (没有 莱 积 与 蜘 ). 

TrigFactor[ 囊 达 式 ] 把 表达 式 转化 为 等 价 的 但 没有 角度 的 和 与 倍数 的 表达 式 , 然后 对 
所 得 三 角 展 过 式 分 解 因 趟 ， 


下 面 的 例子 说 明了 Expand 与 rigEypand 之 间 的 差别 . 


例 23 


Rrpand[ {Sin[x] + Cosfx])] 
Cos[x]: + 2 Cos[x]sin[x] + Sin[x]? 
TigRrpend[ (Sin[x] + Cos[x])! 

1 + 2 Cosl x]Sin|[x] 


TrigRxpand [Sinlx + yj]] 

Cos[y]sin[x] + Cos[x] Sin[y] 

TrigExpand| Sin[ 2x]} 

2 Cos| x |Sin[ x | 

iogRspand [Sin[2x + Y]] 

2 Cos[x] cos[y] Sin[x] + Cos[x]? Sin[y} - Sin[x] Sin[y] 


TrigExpand 也 适用 于 双 曲 困 数 ， 


例 25 


TrigqExpand [Cosh[x + Y]] 
Cosh| xj Coshl yj + Sinh[x] Sinh[yj 


TrigReduce [Sini 2x]: + Sin[x] Cos[3x]] 


到 (4 - 4Cos[dx] - 3 Sin[2x] + 38Sin[4x] ~ Sin[8x] + Sin[10x]) 


17 和。 


“ 17 * 
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TrigReduce| Sinbhf2x]* + Sinh[x| Cosh[3x]3] 


a —4+4 Coshi 4x) — 3 Sinhl 2x] + 3 Sinh[ 4x] - Sinhl[ Bx] + Sinhl 10x]) 


下 面 的 例子 说 明了 TrigFactor 与 人 igReduce 的 差别 .注意 rigFactor 把 表达 式 写成 积 的 形 
式 , 而立 igRecduce 把 表达 式 写成 和 的 形式 . 


例 27 expr = frigExpand[4 Sin[x]2 Cos[2x]’] 
3 Cos[xj Sin[x + Coslx]’ Sin[x]:— 3 Sinfx)’-— 
15 Cos[x] Sin[x]*+ 15 Cos[x] Sin[x6- Sin[x]s 
TrigFactor [expr | 
4(Cos[x] - Sin[xj) Sinfxj {Cos[x] + Sin[x])’ 
igReduce[ expr | 


-3 + 6 Cosl2x] — 4 Cos[dx] + 2 Cos[6x) — Cos[ Bx]) 


Sovle 命令 可 以 用 来 求解 三 角子 数 方程 ,然而 , 由 于 返回 的 只 是 反 三 角 函 数 的 主 值 ,因此 得 到 
的 并 不 是 全 部 解 . 


例 28 考虑 方程 1- 2eosgr -~ snyr +sn2r=0. 
equation=1 - 2Cos[xzj - Sinlx| + Sin[2x] == 
Solve[ equation，x] 
Solve: :ifun， 


Inverse functions are being used by Solve, so some solutions may not be found. 


(Solve 使 用 了 反 消 数 ,因此 有 可 能 有 些 解 没有 求 出 .) 


Vm 


由 于 三 角 函 数 与 双 曲 晒 数 都 可 以 用 指数 函数 表示 (对 于 辆 周三 角 函 数 , 要 用 到 复 指数 函 
数 ), 办 此 Mathematica 提供 了 两 个 转化 晴 数 ， 

加 ”TrigToExp[ 表 达 式 ] 把 二 角 画 数 与 双 则 函数 转化 为 指数 本 数 形式 ， 

里 ExpToTrig[ 表 达 式 ] 把 指数 函数 转化 为 三 角 函 数 与 { 或 ) 双 曲 函 数 . 


例 29 TrigToRBxp[Cos[x]] 


lx hx 
之 之 


ExpTotriq| Exp[z]] 
Cosh[x| + Sinhlx | 


习题 解答 


7.19 ”化 简 三 角 销 数 表达 式 一 一 上 一 


COS x — Sin x 


27.20 


7.21 


7.22 


7 ,23 


第 七 章 “” 代数 与 三 角 , 177 ， 
解 上 逐 


rrigReduce| ET SET 


Sec[ 2x | 


简化 并 分 解 因 式 :sin x cos x + cos Xx， 
解 于 


Trigractor[Sin[x]: Coslz]’ + Cos[x]*] 
Cos[xj 


求解 三 角 畏 数 方 程 ;1 一 2rcos x 一 2sinx + 4sin2r=0. 
解 


equation=1 ~ 2 Cos[x| ~ 2 Sin[x| + 4 Sin[2x] == 
Solve[ equation, x| 


SolVve: + 1fun.: 


Inverse finctions are Deing used by Solve, so some solutions may not be found. 


(Solve 使 用 了 反 精 数 ,因此 有 可 能 有 些 解 没有 求 出 .) 


[arecos| 1 十 13 | 时 | 
8 


jxvhrecos| 二 + 下 11 3 .3 ||， 


时 218 所 


-arccos| 工 _ 1 | 也 -| 
| 


x*— Arctos| 4 J13 ,1 9 ,13 
neces ) 


8 218 8 
第 77 一 这 时 数 惜 解 可 能 更 有 瘟 立 . 
ix 1.40492|, ix — 0.1685873|, jx -= 2.834971，]x> 一 1 .26407 | | 


求 和 并 化 简 ， i + tanz, 


1 + sin 
解 这 


Together os 


中 LI 
1+ Sin[z] Tan[x|, Tring -True | 
1 


[cos| 兰 | 一 sin| 兰 ] cos| ¥ | + sin| 到 | 
Sec[x] 学 全 篇 化 表达 式 ， - 


组 合并 化 简 ; 一 -Sinhz + coshz 


coshz 一 Snnhz coshx +Ssinbzr- 
解 丘 
_ Sinhlx)  ,_ toshlx)] 
Together| Sinh| x +. Cosh| x 


Coghlx] ~ Sinhlx] tosh[lx] + Sinh[x] ' Trig True | 
Cosh| 2x | 


178 ， 
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7.24 构造 sin nz 与 cos nz 对 n= 二 2,，3, 4, 5 的 稿 骨 公式 表 . 
能 4 


trigtable = Table[ {n, TrigExpand[ Sin[n x]], TrigExpand[Cos[n x]1|, {n, 2, 5})]; 
TableForm[ trigtable, TableHeadings —*|None, {n’, “sin nx, "cos nx }}] 


n S1n Ti COS TI 

2 2C08|x]Sin|x] Cos[x] ~ Sin[x} 

3 3Cos[x]:Sin[x]} — Sin[(x} Cos[zt — 3Cos[xjSin[x] 

4 4Cos[zj Sin[zj - dcos[x]Sinfx Cos[x]* - Scos[x Sin[x | + Sin[x]* 
5 


scCos[x Sin[x] ~ 100cs[x] Sinfxh + Sinlx|’ Cos[x]’ ~ 10Cos[x] "Sin[x] + SCos[x Sin[x]: 


7.25 构造 sn*z 与 ecosst 对 n= 二 2，3, 4, 5 的 线性 三 角 公 式 表 ， 
解 ”4 


trigtable = Table[ |n, TrigReduce [Sin[x]"], TrigReduce [Cosfx]?]1，{n，2，5]]; 
TableForml trigtable, TableHeadings — |None, {an, “sin"x, cos"x ]|] 


n sinx cos™ x 

2 六 (1- Cos[2x]) 六 (1 + Cos[2x]) 

3 二 (3Sinfx] - Sin[ 3x]) 去 (3Cosfx] + Cos{ 3x |} 

| 二 G3 - 4Cos[ 2X] + Cos[ 4x|) 去 (3 + 4Cog[ 2x] +eosl4x]) 
1 


5 (10Sin[x] -5Sin[ 3x| + Sin[ Sx]) Toli0Cos[x] + 5Cos[ 3x] + Cos[ 5x |) 


7.26 把 时 ?表示 成 双 曲 通 数 的 形式 ,并 展开 ， 
甫 
ExpToTrig[E’ ”| 
Cosh[lx + Y] + Sinh[x + 了 ] 
TrigExpand[ % ] 
Cosh[xjcoshty] + Coshlyjsinh[lx] + Coshlx]Sinhly] + Sinhp[x]Sinh[ vl] 


7.27 把 sinh ix 与 tan i'x 表示 成 指数 形式 . 
解 也 


TrigToExpl ArcSinh[x|] 
Log[x+ vi+x| 


TrigToERxp[ArcTanh[ x|] 


-Log[ll - x] + 二 Log[1 + x 
7.4 化 简 的 技巧 


对 于 特定 的 代数 成 三 角 表 达 式 , 可 以 表示 成 许多 不 同 的 形式 , 而且 不 同 的 人 对 丁 “ 简 单 " 形 
式 的 着 法 可 能 不 一 样 , 例 如 ,在 处 理 有 理 函 数 的 时 候 , (x + 3)? 可 能 比 z*+ 6x + 9 更 精简 ， 
但 在 处 理 多 项 式 时 ,所 要 求 的 最 简 形 式 就 应 当 是 后 者 . 


第 七 章 ” 代 数 与 三 角 :1379 - 


一 


下 如 你 在 本 和 章 中 所 忆 到 的 那样 , Mathematica 提供 了 许多 俞 令 控 出 表达 式 的 形式 .在 实际 
使 用 过 程 中 , 你 就 会 逐步 学 会 如 何 使 用 这 些 命 令 改 变 表 达 式 的 形式 , 以 满足 自己 的 需要 . 

作为 提问 简 化 的 一 个 步骤 , Mathematica 提供 了 两 茶 命 令 , 以 化 简 复 杂 结 构 . 

加 ”Simplify[ 表 达 式 ] 对 表达 式 进 行 一 系列 的 变换 ,并 退回 它 所 找到 的 最 简 形 式 ， 

加 Bull1Sinmplity[ 表 达 式 ] 对 表达 式 进 行 包括 急 等 导 特 殊 国 数 在 内 的 更 大 范围 的 变换 ， 


Simplify 会 尝试 利用 展开 . 因 式 分 解 以 及 其 它 标准 数学 变换 简化 表达 式 的 复 桨 性 . 由 于 
它 的 一 般 性 , Simplify 一 般 要 比 更 直接 的 命令 慢 很 多 . Fullsimplify 得 到 的 结果 至 少 不 会 比 
Simplify 的 结果 复杂 ,但 兹 礁 的 时 间 可 能 更 长 . 

可 以 用 选项 Tinetonstraint 指定 一 个 时 间 限 庶 ( 以 秒 为 单位 ). 对 于 Simplify 默认 什 为 
TinmeConstraint 一 300, 对 FullSimplify, TimeConstraint Infinity. 对 于 这 两 茉 命令 , Trig 


True 都 是 进行 二 和 运算 时 的 上 默认 值 . 


例 30 


例 31 


首先 , 生成 一 个 很 长 的 代数 表达 式 ， 


"i 工 1 1 | 
messyexpression = Expand| | + 7+ +2+ +3 


(It) (2+2)” (T+x) (2+u)s (T+x)(2+x) (TH 
353 1, 3 1 -3 0 | 
(1+x) (2+x) (3+x)? (1+x}(3+x): (2+x) (3+x): (1+x) (3+x) 

10 ， 20 ， 10 ， 10 
(2+x) (3+x) (1+x) (2+x) (3+x) (1+x) (3+x)y (2+x)i(3+x) 

30 30 5 5 

一 一 + 
(1 +x) (2+x) 3HTE Crx) 2+x) 《3TX) (1+x) (3+x) (2+x) (3+x) 
.20 0 2 如 
(1+x) (2+x) [3+x) (1+x) {2+x) (3+x) (Ll+x)(2+x) (3+x) 


现在 化 衡 这 个 表 太 式 , 当然, Mathematica 并 不 会 记 信 messYyexpression 是 从 哪儿 来 
的 . 
Simplify[ messyexpression| 


11+12x+ 33x) 
(1 +x) (2+x) + (3+x)" 


messytrigerpression = Expand[ (Tan[x] + Sin[xj + Cos[x 入] 

Cos[x|! + 5Cos[xl:Sin[xl* + 5Cos[xl "Sin[x): + 10Cos[ x] Sin[x]’ + 

20Cos[x Sin( x + 10Cos[ x) Sinlxl + 30Sin[x] + 30C0s[x} Sin[x] + 
10C0s[ x] Sin x + 208in{x] + SCos[x] Sin[xP + Sintx} + 10Sin{x] Tan[x]* + 
30Sin[x Tn[x]: + 53in[x] Tan[x) + 20Sin[x] "Tan[x} +10Sin[x] "Tan[x]*: + 
sSin[x| "Ten| x] + 108in| x] Ten [x] + 5Sin[x} Tan[x] + Tan[x]" 
Simplify[nessytriqexpression]| 


Sec[x]™ 


第 人 章 向 人 切 运 得 


8.1 极限 的 计算 


活 数 的 极限 尼 微 分 的 直 石 .对 于 复杂 函数 ,极限 的 计算 相当 困难 ,需要 答 种 专门 的 计算 方 
法 .Mathematica 内 容 了 完成 这 一 任务 的 程序 , 它 总 颖 尽力 稀 定 极限 的 淮 傅 值 . 
国 Linmit[f[x]，x 一 a] 计算 limf(r) 的 全 


例 1 希望 计算 lm 全 ;2 的 什 . 由 十 当 z-2 时 ,分 子 与 分 母 的 值 都 郊 二 夫 , 因此 极限 值 并 不 


A 


是 一 目 了 然 的 ， 


可 以 利用 Directien 选项 确定 左右 极限 的 计算 . 
+ Direction 一 1 使 得 极限 作为 左 极限 来 计算 , 即 x 从 亚 面 趋 近 于 = ， 
* Direction 一 -1 使 得 极限 作为 右 极 限 来 计算 , 即 x 从 右面 趋 近 于 a . 
Dim 让 的 陵 认 稍为 Direction 一 Automatie, 阶 了 在 中 点 外 , 它 的 值 为 Direction 一 


-1. 司 此 对 于 不 连 综 函数 ,如 果 没 有 给 出 Direc+ion 选项 , Mathematica 给 出 的 权 限 值 可 能 不 
正确 . 


例 2 考虑 极限 tim i 
Mbslx] 
其 


Lim ， 凑 一 总 ] 


1 
由 于 没有 指 笔 方 扣 选项 ,因此 在 默认 情况 中 只 计算 右 极 限 . 为 了 对 极限 进行 完全 地 
分 析 , 我 们 也 计算 它 的 左 极限 . 


rin[ Ms A X 0, Direction —1] 


一 上 


由 于 左右 极限 不 同 , 所 以 上 上述 极限 不 存在 . 
Mathematica 也 ,可 以 计算 无 穷 极 限 以 及 在 名 处 的 极限 ， 


例 3 Linitli/x, x—0, Direction 一 一 1 
mn 
Linit[i/x, x 0, Direction —*1] 
-ow 

2x + 3x+4 


站 了 — 3 
Linit| 41 !™ ] 


2 


第 太 章 微分 运算 
在 下 面 例子 中 国 数 演 水 了 另外 一 种 完全 不 同 的 行为 . 当 x 一 各 时 , 国 数 要 来 加 振动 无 穷 
次 .Nathematica 点 回 的 极限 为 区 加 对 蒙 Interval[ lmin，maxlj, 表 示 重 的 苍 围 介 于 min 与 
max 之 则 . 


例 4 Limit[Sin[l/x], x 一 0] 
Interval[ 1-1, 1|] 
LimitiTan[1l/x|, x —*0 | 


Interval[|—%, 1| 


了 题解 答 
8.1 计算 极限 lim + 一 
pt 3 
解 i 
Limit[< <* +, x >0] 


2 


了 (1 + Logl2]) 


8.2 ”计算 极限 lim nz 
主人 下 


解 
Linit[ 了 aa[zj = =， x 0 ] 
下 
1 
3 


8.3 计算 极限 lim(1 + sinz)™. 
解 过 


Limit[ [1 + Sinfx])™?*] x —» 0] 
ve 


8,4 计算 极限 lim (er + x) “与 lim (Cert zr 
解 4 王 


Limit[ (Kxp[x] + xj x—o] 

e 

Limit[ (Exp[x)| + x)!*, x -oo】 
1 


8,5 计算 极限 lim(2 — cn) 
极 ”# 


Limit{ (2 — x) Tl27] x1) 


E27 


"18]1 : 
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7 一 一 一 一 一 一 一 一 


8.6 如果 每 年 交付 利 昌 次 ,年 利率 为 >, 那么 疡 美元 在 : 年 后 变 为 p| +] 后 
果 连 续 计 和 县 fa 一 扣 ), 拷 各 :和 牢 后 钱 数 尖 黎 消 ? 
解 EF 


Limit[p[l1 + rn) n—o | 


ertn 


8.7 函数 的 导数 定义 为 裤 限 Jim + 一 人 ,利用 这 个 定义 计算 f(z)=Inz + + 
sin 工区 导数 ， 
解 8 汪 


f[x |]=Log[lx] + x + Sin[x]; 
Limit[t 1 flix ,hn— 01 


一 + Sx 二 Cos[X] 


8.8 函数 的 2 阶 导数 可 以 用 ji 二 二 二 全 尖 二 全 和 全 极限 计算 得 到 .利用 这 个 极限 


计算 f(z)=Inx +xrs+ sinz 的 2 阶 导 数 . 
解 。 EEF 

flx _]=Log[lx| + 六 + 8intz|; 

Linit[ {2th h 一 0] 


-这 + 20x3 一 Siml xj 
总 
8.2 导数 的 计算 


什 Mathematica 中 有 几 种 计算 导数 的 方法 .每 种 方法 都 有 其 优势 与 不 足 , 因此 对 于 特定 的 
问题 , 必须 进行 适当 的 选择 . 
国 ” 灿 果 ff[x] 表 示 一 个 疗 数 , 那么 它 的 导数 表示 为 [xj. 局 阶 导 数 用 f* [x]， 
fF[x],… 竺 表示 ， 


例 5 f[x |]=x°+ X + X3 十 e+ 天 十 工 : 


ff [| 

1 二 2x + 3x + dx + Sx’ 
下 | 

2 + 6x + 1l2x + 20x 

f” x] 


6 + 24x + FOx’ 


撤 与 也 可 以 作用 到 内 置 函 数 于 , 见 下 面 例子 所 示 . 如 果 不 给 出 参数 , Mathematica 就 运 回 ~- 
个 纯粹 图 数 , 表示 所 要 求 的 导数 (纯粹 国 数 的 讨论 见 附 录 )， 


例 Sart 


第 八 章 微分 运算 


Sqrt” 
1 
2{2 半 L332) 

Sqrt [xj] 

1 


— 一 


dw 


国 DIf[x], x] 返回 ff 相应 于 变量 x 的 导数 . 
国 ”DIf[x]，{x，n1] 返回 f 相应 于 变量 x 的 n 阶 导数 ， 


例 7 Dist w+ + x+x + 1, xX 
1 + 2x + 3xi+ dAxT + Sx’ 
DiIx + x+ n+ x+ x + 1, {x, 211 
2 + 6x + 12x + 20x 
Dirt x+ wt w+ x + 1, |x, 31] 
6 + 24x + 60x’ 


图 3D, 可 以 在 Basicinput 模板 中 找到 这 个 符号 , 它 等 愉 于 DD 命令 ,3, 返回 相应 十 x 的 导 
数 .n 阶 导 数 表 示 为 3, ,| 


例 8 9 {x+ x+ x + x + x+ 1) 
1 + 2x + x+ dx + Su 
Daalx + r+ x+tx+x+1) 
2 + 6x + 12xw+ 20x 
a3{x + r+x+x+xr+ 1) 
6 + 24x + 60x 


国 ”Derivative[n| 基 一 个 泾 函 算 子 , 它 作 用 到 一 个 画 数 上 ,得 到 一 个 新 的 国 数 , 即 国 数 的 
nm 阶 导 萝 数 .Derivative[n][E] 用 纯粹 男 数 的 形式 给 出 主 的 nD 阶 导数 , 而 Barivative 
[nj[fj[fx] 计 算 f 在 x 点 的 n 阶 导数 . 

有 一 些 事实 值得 记 往 , 那 就 是 在 Mathematica 的 内 部 , f 要 被 转化 为 Derivative[1][f]. 

因此 f'[x] 成 为 Derivative[1j[f£][x].f", ff” 等 等 的 处 理 类 羽 . 


例 9 fx ] = 本 + n+ wt + 二 


Derivatjiwe[ 1 |[£| 
1 十 2 并 1 + 3 半生 十 和 4 插入 二 5 并 1 总 4-Mathematica 返回 一 个 巡 粹 函数 表示 了 f 的 导 
Derivativel1 |[f |[x] 数 . 在 附 革 中 对 纯粹 函数 进行 了 讨论 . 


1 + 2x + 3x2+ dxi + Sx 
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要 计算 导 笋 在 特定 点 的 值 ,可 以 来 用 几 种 方法 ,具体 使 用 哪 种 方法 , 要 根据 导数 的 计算 信 
令 确 定 . 下 面 的 例子 演示 了 最 弟 用 的 良法 . 


例 10 


flx_j={x- x + 1); 


f°[1| < 对 本 例 前 二 部 分 中 的 每 -部 分 而 言 ,都 是 先 
30 计算 2 阶 导 数 , 然 后 再 用 1 代替 x. 
Dlf[x], {x, 2]] /.x—1 

30 

9 af lx] /. x 一 1 

30 

g := Derivativel2][f] 一 这 里 我 们 定义 了 一 个 新 函数 g, 表示 的 2 
g[1] 阶 导数 .如 果 f 发 生 了 改变 ,g 就 次 为 新 前 数 
30 的 2 阶 导数 ,注意 这 里 使 用 了 , = ,如 果 需 
ffx |=x: 要 可 反应 于 的 改变 ,这 一 点 非常 重要 ， 

gq[1] 

6 


Mathematica 通过 “ 记 住 "各 种 法 则 来 计算 函数 的 复合 、 和 、 差 、 积 与 商 以 及 它们 的 组 合 的 导 
数 .如 果 没 有 给 出 肾 数 的 定义 ,那么 就 可 以 看 出 这 些 法 则 的 内 容 ， 


例 11 


Clear[f, g| 

D[lf[lx] + glx], x] 

f [xj] + glxi * 和 的 导数 等 于 各 项 导数 的 和 ， 
nlflx] glx], x] 

glx] f'[x] + flx] g [x] + 这 就 是 熟悉 的 乘积 法 则 . 
D[ELx]7g[x]，rjy7ATaogether 

dxlf x| -fx C0 1 六 人 < 商法 则 ， 

Dlt[glx]], x] 

f [glx]]g lx] *- 链 式 法 则 . 


我 们 可 以 道 过 观察 图 形 , 利用 Mathematica 发 现 一 些 基本 理论 .由 罗 尔 定理 可 知 , 在 某 些 
茶 件 下 , 存在 一 点 ,该 点 导数 值 为 零 ， 


合子 为 有 限 闲 区 加 [a,， 8] 上 的 连续 画 数 ,并 在 开 区 间 《a, 5) 上 可 微 ,假设 了 


Ca)= 0 三 0. 那 从 存在 一 个 数 c 介 于 与 瑟 之 间 , 使 得 广 (fc)=0. 
也 就 是 说 ,如果 光滑 函数 在 a 与 5 两 点 同时 等 于 零 ,那么 在 这 两 点 之 间 必 存在 一 点 , 它 的 导数 
等 于 零 ， 


例 12 


证 明 画 数 ffz)=(zr"+ 2zr2+ 15x + 21)sin rz 在 区 间 [0, 1] 上 满足 罗 泵 定理, 并 求 
出 定理 中 所 再 称 的 点 c， 

由 于 了 是 多 项 式 与 正弦 三 角 冰 数 的 乘积 , 所 以 了 处 处 连续 呵 且 可 微 . 

f[x_ ]= (x + 2x + 15 + 2]8in[ xx]; 

£10] 

0 

£[11 


第 八 章 答 冉 和 运 算 


一 和 时, 一 一 一 


FEindRoot [fffe] == 0，{c，0.5}] =: 我 们 用 0.5 作为 初始 估计 信 , 因 为 它 居 全 与 1 的 中 点 . 
C—O.6A02411 


Plot[ if[x], £[.640241]}, ix, 0, 1}1; 


中 值 定理 与 罗 尔 定理 类 似 ,但 它 不 要 求 在 区 间 的 两 个 端点 上 取 零 值 ， 
令 了 为 有 限 闭 区 间 [a, b] 上 的 连续 函数 ,并 在 开 区 间 (a,，b) 上 可 微 ,那么 存在 一 个 数 ， 
介 于 a 与 5 之 间 , 合 得 了 (py) -fay= 了 (cy(p-a). 


如 典 定 理 的 结论 写作 下 位 以 全 = y(c) 共 形式 ,我 们 可 见 中 值 定理 保证 了 在 a 与 5 之 间 在 
在 一 点 c, 在 (c，f(c)) 点 的 切线 平行 十 连接 曲线 两 个 端点 的 线段 . 


注意 ” 罗 尔 定理 与 中 值 定理 剖 只 保证 至 少 存在 一 个 数 c, 实际 上 对 于 具体 的 问题 , 可 能 存 
在 满足 条 件 的 多 个 数 . 


例 13 


对 于 函数 F(z)=vzr+ sin2rz, 求 出 使 得 中 值 定理 在 区 间 [0, 2] 上 成 立 的 值 c. 
flr | = x + Sinf27x]， 
a=0: b=2. 
n= flbl-f[al, 
b-a 7 
Plot[f’ [x] - m, {x, 0, 21}, PlotRange 一 | -8, 8}] 
6 
各 
, 先 了 确定 的 位 置 , 我 们 需要 人 
计 力 数 广 了 )- 严 的 零点 。 由 图 


可 知 它 有 四 个 零点 ,分 别 近似 为 
0.3,0 7,1.3,.1.7. 


1 1 上 1 
LI ch = hr 


FindRoot[E [¢] ==m, {cc, .3}] 
FindRoot[f’ [ee] ==m, |e, .71|] 
FindRoot [f° [ce] == m, i{c, 二 5 
1.3|] 

FindRoot [f [c] == m, 1:c, 
1.7}] 
le ~ 0.257071| 
jc — 0.7533191 
le — 1.24344| 


贞 图 可 见 ,切线 平行 于 曲线 贤 总 的 连 线 


"85 


:1 。 iathermayjrs 便 用 指南 


rT -1 一 一 一 一 一 -一 


ie 一 1.75836| 
习题 解答 
8.9 计算 tanz 的 3 阶 导数 . 
解 # 
Tan [x|] //Expand < 一 对 于 Mathematica 版 本 3 需要 插入 /Bopand 在 版 本 4 中 会 自动 展 半 的 . 


2 Sec[x| + 4Sec[x] ”Tan[x]' 


8.10 计算 f(x)=e" 在 x=0 点 的 前 30 阶 导数 的 值 ,把 结果 以 表 放 的 形式 列 出 来 
解 EF 
flzx .| =Exp[lx’]; 
derivtable = Tablel {n, DIfix], {x, nj]/. x-—*0}, {n, 1, 10}]: 
TableForm|[ derivtable, 
TableAlignments —*Center, 
TableDirections — Row, 
TableSpacing -一 2, 
TableHeadings = {None, |'n’, ‘£‘" (0) “}!] 
放 上 2 了 4 5 a 7 8 9 10 
fltmfo) 0 2 0 12 0 10 0 1680 0 30240 


8.11 在 问 健 标 系 中 国 出 F(x)=x -50x + 300 及 其 导数 在 - 10 所 x 所 10 上 的 图 
形 ， 
解 i 
< Graphics* Legend ~ 
f[x_]=x - 50c + 300; 
Plot[ {fl[x], ft [x}}, {x, ~- 10, 10|}, 
PlotStyle — |GrayLevel[0], Dashing[ {1.015}]}, 
PlotLegend —{"f£[x]”, “fF’[x]"}]; 


注意 观察 当 六 (tr)= 人 0 


时 六 zz) 有 具有 相对 (局 
部 ) 极 大 仁 或 极 小 栖 . 


8.12 给 定 函 数 Fr), 其 图 形 为 C,C 在 点 a 的 切线 斜 这 为 广 (a) . 令 ffzy=sinz, 夯 出 函数 
图 形 及 其 在 ae=f3 处 的 切线 . 


第 作 草 微分 运算 “ 187 


解 # 

flx_ | = Sin|lx|]; 

a= ni/3; 

llx_]=ftla] + f [allx- a); 
Plot[ {flx], i[x]}, {x, 0, 2x)]; 


注意 过 点 (tr, y1), 笠 率 为 m 的 直线 方 穆 为 
y— y= mir ri) 

或 者 Ny mtr 1 

这 里 == ta) ta), 因此 

y= Fal+F (altr—a) 


8.13 构造 一 个 动画 ,演示 曲线 y= sin x ,0 所 广 筷 27 的 切线 沿 上 曲线 运动 的 情形 . 


解 ”号 

在 设计 图 形 的 切线 时 ,我 们 希望 它 具 有 向 数 长 度 ,如 2 个 单位 长 ,而 且 切 点 就 是 它 的 中 
点 ,为 此 ,我 们 构造 函数 1[xj, 它 在 a-1/yv1+t+im? 与 a+1/y1i+ m*(m 表示 切线 的 斜 
率 ) 之 间 定 义 了 在 x 点 的 切线 . 

然而 这 时 有 一 个 小 问题 . 当 我 们 要 绘制 1[xj] 在 区 间 0 筷 x 过 2 x 上 的 图 形 时 ,由 于 
1[x] 只 是 定 广 在 这 个 区 间 的 子 集 工 ,所 以 Mathematica 会 给 出 出 自信 息 .可 以 用 命令 
Off1Plot: :plnr] 关 掉 这 条 出 错 信息 的 显示 . 

fix ]= Sinlx]:; 

# :=f"[a]) 


ix _]=fla] + mlz- a/sa- /vitmw Ex 人 Satl /+t 
Dol Plot[ If[x], 1[x]}, {x, 0, 2x}, 
PlotRange 一 | -1.5, 1.5}], {a, 0, 2x, x/6j] 
Pilot:; :plnr : 一 这 傈 消息 要 重复 很 吕 次 . 
1[x] is not a machine ~ size real nomber at x = 1.04500937601917009 ~， 
(1l[xj 在 x=1.04500937601917003 ` 不 是 机 酯 认可 的 实数 .) 
OFFiP1ct: :Lprj 一 去掉 出 错 信息 ， 
Do[fPlot[ lf[x)], 1[lx]], |x, 0, 2x}, 
BlotRange 一 |] —1.5, 1,.5}], {a, 0, 2x, /6|] 
On[ Plot: :plnr | <*- 恢复 显示 这 条 出 错 信 忠 的 能 力 . 
选择 图 形 单 元 括号 ,然后 进入 Cell 茶 单 ,点 击 Cell 二 Animate Selected Graphics 就 9 
以 查看 动画 . 


1 和 
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Mathematica 使 用 指南 


1.5 1.5 1.5 
iF = 11 
0 CG.s 9 . 引 
二 
0 ~ jo.s ~ oe 1 六 ~ CE 
[| 
-1 -1| 
1 .5 -1.5 1.5| 
1 ,5 1,9 1.5 
1| 1 1 
.5 5 ,5 0.5 
3 3 
0 .5 -0.5 -0.5 
-1 -2 -1 
1.5 -1.5 -1.5 


卢 * ep 已 
| 
| 
Wl 
| | 
| LE my 
过 
| 
Dm | Dm | 
un nn + 
| 
Cn 


1 1 ] .5 
| 3 
9 .5| 
0 下 -0 .5 
lf -1 
-1 -1.5 -1.5 


上 


1 1 
下 i 
站 1 + 上 时 了 t 时 4 4 rt rt 
4 加 记 -- 思 PP 


| 
上 


对 于 区 间 [0, 4] 上 的 函数 Frzy=4z + 39 zz- 46z3+ 17 x*~ 2z3 求 出 使 罗 尔 定 

理 成 并 的 值 c. 

解 

由 于 f(x) 为 多 项 式 , 所 以 它 处 处 连续 而 且 可 微 . 前 先 验 证 (0)= f(x)=0. 
fl[x_]=dx + 39x - 6x + Tx - 2 

f[0] 


f[4] 
0 
现在 看 一 下 产 (c)=0 在 哪儿 成 立 . 由 于 广 
为 多 项 式 , 所 以 可 以 用 MSolve 命令 求解 . 
3 * NMSolve[f’[c] ==0] 

ic —0,0472411|, lc — 1.05952), 


| | bh 
加 
Li 


| 
ba 


lc 2.274661, Ic — 3,.51296|| 

因此 在 0 与 4 之 间 存 在 三 个 ¢c 值 .( 罗 尔 定 理 内 保证 至 少 存 在 一 个 .) 函 数 的 图 形 答 证 
这 一 太 . 

Plot[f[x}, [x, 0, 4}] 


对 于 区 间 [0, x 上 的 史 数 护卫 一 人 + sin 27 ,验证 中 全 定理 成 立 . 
和 解 ff 
f(z) 是 处 处 连续 而 理 可 微 的 .定义 a=0， 58=2x, 并 求解 关于 c 的 方程 f(b) 


常 八 章 微分 运算 


-~ alI=FciB -oa) 为 了 给 出 ce 的 近似 值 , 我 们 查看 ~- 下 图 数 的 图 形 以 及 曲线 


flx | 三 天 十 Sin| 2x|]; 

a=0;: b= 多 fn: 

= 下 ba 。 连接 映 点 的 割 线 的 斜率 . 
llx ]=flal + nix - a}: 一 表示 割 线 的 隔 数 . 


Plot[ Ef[x], 1[x}}, {x, a, b|]; 


0.5 1 1.5 2 2.5 3 
出 图 可 抑 , 在 zx=1 与 =2.$ 附 近 的 切线 平行 于 割 线 . 
FindRoot[f[b] - E[a]j==fE [ellb - a), {c, 1}] 
FindRoct[E[bj ~ fla] ==f' ebp - a), loc, 2.5}|] 
Ie — 0.7853498)| 


ic 一 2.35619| 这 两 个 依 都 位 生 0 与 x 之 间 ， 
8.3 最 大 值 与 最 小 什 


我 们 称 函 数 了 在 区 间 工 中 ce 点 达到 绝对 (全 局 ) 最 天 值 ,是 指 对 工 中 所 有 点 z, 六 z) 扫 丰 
(ec 成立. 也 就 是 说 , ftc) 是 f(x) 在 I 上 的 最 大 值 . 绝 对 最 小 值 的 定义 类 似 ( 只 是 不 等 式 反 
号 ) .微分 学 有 一 个 最 重要 的 应 用 就 是 优化 问题 的 求解 , 即 在 某 种 限制 下 求 出 图 数 的 最 大 值 与 
最 小 和 值 . 

并 不 是 所 有 的 函数 都 具有 绝对 最 大 值 各 最 小 值 .然而 最 值 定理 给 出 的 条 件 保 证 了 它 的 存 
社 性 : 

如 村 了 为 有 乔 财 区 问 上 的 连续 函数 ,那么 了 上 在 这 个 区 则 了 奸 具有 绝对 最 大 值 , 也 有 有 绝对 
最 小 值 . 

医 数 了 的 临界 点 就 是 数 c 满足 六 cec)=0 或 者 广 (ce) 不 存在 .在 本 书 中 我 们 只 考虑 可 徽 函 
数 , 因 此 量 办 点 也 斌 是 导数 虱 等 于 零 的 点. 

可 流 证 明 如 果 站 数 在 有 界 财 区 间 [a, 5] 上 连续 ,那么 它 的 绝对 最 太 值 和 最 小 值 就 在 临 
界 点 或 者 区 司 疹 点 上 这 到 .由 此 我 们 可 以 利用 Mathematica 帮助 我 们 计算 函数 的 最 大 值 和 最 
小 值 ， 


例 14 计算 藉 数 ffzr)=r- 4mr+t2r+42z+2 在 区 间 [0.4] 上 的 饮 对 最 大 值 和 最 小 
值 .首先 求 出 它 的 临界 点 。 
fl[x_]=x ~ 4x3+ 2x + 4x + 2; 
Solvel£f’ [x] ==0] 


(xl1|, (yr1 — v2), {x1 +v211 


190 


例 15 


， 。 Mathermaucs 司 用 指 丙 


err 一 Tar 一 一 天 


这 三 个 数 中 只 有 两 个 在 区 间 [0，4] 中 .我们 计算 函数 在 这 些 信 以 及 区 间 端点 上 的 信 ， 
cl=0, c2=1; c3=1 1+y2; c4= 4; 

pointstocheck = {|c1, f[cil}, {c2, £[c2]}, {fe3, £[c3]), fc4, £[c4]|}//Expand; 
TableForm[ poinstocheck, TableHeading -~* |None, 1x, "f[x}"}}] 


x f[x | 
0 2 

1 5 

1 +v2 1 

4 59 


所 以 了 在 该 区 间 上 的 绝对 最 大 值 为 $0, 绝 对 最 小 值 为 1. 


一 根 线 长 100 英寸 ,更 用 它 构 成 一 个 正方 形 和 一 个 图 形 ,请 问 和 如何 分 配 ,才能 使 它 所 构 
成 的 图 形 面积 和 (a) 最 大 ;fb) 最 小 ， 


lob" 


两 个 形状 的 组 全 面积 为 Atr)= rr*+ rr .图 的 周 长 为 2rr, 正 方形 周 长 为 47r, 而 线 长 
为 100, 所 以 4zr + 2xr=100, 并 有 0 所 所 25. 
Solve[l4 x + 27%r==100, zz 


| 2 二 
| 


再 


2( -25 二 x) 


a[lx_l=x+ rri/:r—-— 


_ 2 
dt ~ 25+ x) + 
区 


二 用 z 代 符 >. 


Solvela™ [x] == 0] 一 求 出 临界 点 ， 


计算 4 二) 在 这 三 点 的 值 . 为 广 便于 比较 .把 
它们 的 近似 值 在 一 个 表格 中 . 


x3 = 25,; 

pointstochack = |{x1, a[x1], N[a[x1]]|, |x2, a[x2], N[alx2]]}, 
1x3，a[x3]，H[a[x3]]]177mogether; 

TableForn| pointstocheck, TableAlignments — Center, 
TableHeadings —* [None, “x, ‘afx]”, “Nia[x]}’}}] 


x alx| Nlalx|| 


E 
0 人 795.775 
100 2500 
7 ar 350.062 


23 23 629. 


第 改 章 微分 运 和 站 


CC 


由 上 上 可见, 最 大 面积 出 现在 .x =0( 邑 所 有 的 线 都 用 来 构成 圆 ) ,最 小 面积 是 在 主 方 形 边 
长 为 2 时 达到 { 即 从 线 中 前 下 构成 正方 形 )， 
为 了 进一步 验证 = = 1 -多 实 给 出 了 最 小 值 , 我 们 进行 2 阶 导数 检测 ， 


cei] 
1 可 有 + 多 


1 


由 于 在 临界 点 2 稚 导 数 的 值 为 亡 的 , 所 以 在 1007(4+ 四 达到 相对 要 
小 入. 而 这 是 惟一 的 相对 极 小 值 , 所 以 它 - 定 是 绝对 最 小 值 


黎 显 数 了 在 c 总 达到 相对 (或 局 部 ) 极 大 值 是 指 存在 包含 “ 点 的 开 区 间 1 使 得 对 于 工 中 所 
有 点 ,Frz)s flc) 成 并 .也 就 是 说 存在 一 个 包含 c 的 开 仅 间 使 得 ftc) 为 了 在 这 个 区 间 上 
的 最 大 值 .入 对 极 小 值 的 定义 类 似 . 

与 绝对 最 大 值 (最 小 值 ) 不 同 , 函数 可 能 其 有 儿 个 相对 极 太 信 ( 极 小 信 ) .如 果 项 望 知道 它们 
听 有 的 近似 位 置 ,那么 可 以 用 Mathematica 命令 FindMNinimun 有 效 而 方便 地 计算 出 来 . 

国 ”FindMinimum[f[x]，{x， x0}] 求 出 f(z) 靠近 .z0 点 的 相对 极 小 值 . 


FindMinimum 利用 修正 的 最 速 下 降 法 计算 函数 的 相对 极 小 值 .可 以 用 选项 Method 一 New- 
ton 或 Method 一 DaasiNewton 改变 所 使 用 的 方法 . 

与 FindRoot -- 样 ,如 果 希 望 得 到 更 高 的 准确 度 , 可 以 设置 RecuracyGoal 和 WorkingPre- 
cision 选项 ,另外 ,可 以 设置 Brecisioneoeal 以 确定 吸 数 在 极 小 值 点 值 的 精 庆 . (所谓 精度 ,就 
十 桨 案 中 的 有 效 数字 位 数 :而 准确 度 则 指 的 是 小 数 点 右边 的 有 效 数 字 位 数 .) 

里 然 Mathematica 并 没有 提供 计算 相对 被 大 值 的 前 令 , 但 ~ FindMinimum[ - f[x]}，i{x， 
x0}] 就 可 以 做 到 这 一 点 (在 管 案 中 会 出 现 额外 的 负 号 ,但 可 以 忽略 ). 


例 16 轴 数 (x)=x + sin 5x 在 区 间 [0, x] 中 有 三 个 相对 极 大 值 点 ,两 个 相对 极 小 值 点 . 
只 要 看 一 下 胃 数 的 图 形 , 就 能 知道 它们 的 近似 位 置 . 


f[x j=x + Sin[5x|; 

Plot[f[x], {x, 0, x|]:; 

FindMinimum[f[x], {x, 1!1 

1 0.0773897, ix ~— 0.90220611 一 首先 显示 的 是 函数 悄然 后 是 x 的 值 . 
FindMinimum[ffx)], {x, 2|] 

11.17905, |x — 2.,15884} | 

- FindMinimum[ - f[x], {x, 0.4}] 


11.33423, 1 —- (x 0.354431)1: < 是 以 忽 辕 这 个 负 导 (一 】. 
- FindMinimum| —- £[x], {x, 1.6|1 
12.59086，1 — {x 1.61107)1! 


- FindMinimum[ - fix], {x, 2.8}] 
13.8475, | ~ (x —* 2.8677}!|! 


* 191 ， 


192 * 


8.17 


Mathematica 司 有 指责 


一 一 


国 此 相对 极 大 值 点 为 0.354431，1.33423)1，(1.61107，2.59086) 与 【2.8677， 
3.8475), 极 小 值 点 为 {06.902206， 一 0.0775897) 与 (2.15884, 1.17905). 


习题 解答 
求 出 两 个 和 为 50 的 正 数 ,使 得 第 一 个 数 的 平方 根 加 了 上 第 一 个 数 的 立方 根 人 入 可 能 大 ， 
解 E 
Y=50 - x; 


f[x_] = Vx+vY; 

NSolve[f’ [x] == 0| 

| jx -= 41.15531| 

- FindMinimum[ — f[x], {x, 401}] 
< 另外 一 种 方法 . 

i8.48329, | - (x —» 41.1553})!! 
yi/. x 一 41.1553 

8.8447 

因此 两 个 数 为 = 机 .1553 与 y=8.8447 .最 大 和 为 8.48329. 

Plot[f[x], {x, 0, 50}] 

一 个 圆柱 被 单位 球面 所 截 .(a) 求 出 最 大 可 能 的 体积 .(b) 求 出 最 大 可 能 的 表面 面积 . 
解 E 环 


-和 


WaS 


ol 


"nl 


(a) 考虑 问题 的 二 维 遂 视图 , 记 被 截 圆柱 的 半径 与 向 分 别 为 > 
与 有 .那么 被 截 圆柱 的 体积 为 WW= xr* 有 ,由 色 股 定理 可 秘 


2 
=1 -| 专 ] ,所 以 体积 为 及 的 函数 ,表示 为 VCh) = 
-| 二 | ]s 
ey 
Solve[v[h] ==0, h| 


[Ri 
vmax = v[2/v3] <- 显然 只 有 大 的 正 值 是 适宜 的 ， 


第 从 章 微分 运算 


oC 


4 一 一 一 0 
3.3 由 于 在 临界 点 的 2 从 导数 为 负数 ,所 以 2 人 
点 为 相对 极 大 全 点 。 而 这 是 奴 - - 揭 相 对 右 秆 
Signlv [2/.3]] 占 ,所 以 它 必 是 绝对 最 太 信 点. 
-1 


(b) 圆柱 的 表面 积 (包含 顶 与 底 ) 为 S$S=2xrh > 2xr*. 与 (a) 中 一 样 , 仍 有 r+| 


=1 ,但 和 下 于 在 公式 S 中 同时 出 现 了 ， 与 xy*, 所 以 用 + 表示 上 更 穿 蕊 处 理 . 
Solve[r:+ (hbh/2): ==1, hl| 


| 


0 


p> 2 -rihs2 Tc 
现在 把 的 正 值 代入 到 关于 S 的 公式 中 ， 
s[r_]=2xrh+ 2xr/, h >2v1-r 
2ar’ + dnr dl- 
s ” [r] 

dr 


4 一 一 一 十 4d4r wj- F2 
1l—r 


这 时 求解 x 的 星 界 上 扩 ; 
Solve[s' [r| ==0, rl//Sinplify 


] 


(4 | i 和 
一 0415 一 v5| | [一 1615+V5 | 
只 有 r+ 区 正 值 是 有 用 的 ,我 们 就 用 它 计算 感 大 表面 积 . 


| [5+ 5| simpligy 


i110 
[1+y5lr 


sign| s| | 5+5 | | 


一 上 


< 验证 这 是 绝对 景 大 值 . 


求 出 贺 x2+ y* 一 2 x 一 4y=0 上 距离 P(t4,，4) 最 近 和 最 近 的 点 . 
解 于 有 
首先 画 一 幅 示 意图 . 


< Craphics™ InplicitPlot ~ 
cire= ImplicitPlot[x + ¥ -2x - 4y==0, {x, -5, 5}, 


' 2 
| 
) 


RMathemarica 司 时 指南 


一 


DisplayFunction 一 Identity |; 
p= Graphies[ [PointSize[ .02]1, Point[i4, 4)}]1]; 
Show[ circ, Pp, DisplayFunction — DisplayFunction |; 
全 【7r，y) 表示 加 上 上 一点. 痛 和 完 我 们 需要 用 x 表 坟 中 y. 
Solve[x+ 六- 2x - dy==0, y])//Sinplify 
(ya + Yat2x RE)) 
用 d2 表 具 从 (zz， 7) 已 到 【4，4)》 点 距离 的 平方 ,小 面 计算 它 的 最 小 值 .从 图 于 显然 可 
知 离 PP 点 最 近 的 点 仁 上 半 贺 周 ， 
y=2 + vd+2x-x2i 
dz[xz_]=lxzx- 4 t+ ly - 4)°; 
Solve[d2” [xj ==0| 


i! 


1 ， Ee) 
1 了 3'13+3 v65 


{x, vl/ x i 13+3 /65177Simp1ity 


|1+3, 所 ， 2 + + | 

ss/A/N 

12.86052，3.240351| 

距离 P 点 最 地 的 点 在 下 半 贺 局. 
Y= - V+ 2 王 ， 

d2[x ]={fxzx -42t+ (vy - 4)”; 
Solvel d2 [x|] == 0] 

| 13 -3 v65| | 


[xz， 了 7， sl /6517/Simplify 


重 


1 - 


2 


E/N 
-0.8650521, 0.759653: 


8.19 ” 茶 地 有 一 个 电话 公司 计划 在 宽 100 英尺 的 河 两 边 的 A 与 B 点 之 间 染 : :和 茶 电 话 线 ,C 点 
为 A 点 在 河 另 一 边 的 相对 点 ,B 点 到 CC 点 的 虐 离 为 500 英 捕 .然而 ,在 水 下 旨 线 的 成 本 
是 在 陆地 上 架 线 成 本 的 3 售 . 在 此 和 条件 下 ,公司 应 如 何 确定 染 红 方 案 , 从 而 使 费用 最 小 ? 
解 I 
设 在 陆地 上 每 架 -- 莫 尺 线 的 费用 为 a ,那么 在 水 干 架 线 一 先 尺 的 费用 为 3a .这样 总 费 
用 为 c(CryJ=3avyzrz+i002+ a(500 - xz) ,当然 ,这 时 必定 有 0 过 xz 所 50. 


SOmr 
人 工 和 一 El 
ATt1D0 


A 


clx_] =3a vee+100 + a(500 - x); 


Solve[e' [x] == 0, x] 
| [x25 .21 

现在 必须 措 对 二 于 这 个 值 的 费用 与 在 区 则 问 态 上 的 费用 进行 比较 . 
c[oOl//N 
BO0V.a 


为 了 秆 到 最 小 的 费用 ,首先 在 水 下 把 线 架 到 
节 记 点 25 英尺 的 地 志 , 然后 从 优点 在 陆地 


上 术 到 吾 拔 . 


c[25 v2]//Y 
782 .843a 
c[500]//N 
1529.71a 


8.4 禹 级 数 


最 好 处 理 的 函数 是 多项式 函数 ,因为 它 是 连续 函数 ,而 且 可 以 很 容易 地 计算 它 的 微分 与 积 
分 .基于 此 , 如果 在 实际 问题 中 直到 了 一 个 困难 的 通 数 ,我 们 可 以 想 兴 法 用 和 多项式 过 近 它 . 

如 果 知 道 了 浪 数 在 单个 点 a 的 函数 值 与 它 的 各 阶 导数 值 ,那么 函数 可 以 用 罕 级 数 淮 确 表 
术 , 然而 这 通常 是 一 个 无 穷 级 数 , 在 实际 诺 用 中 必须 截断 .技巧 就 是 使 截断 后 的 函数 在 a 的 某 
个 邻 域内 比较 准确 地 近 近 给 定 贤 数 . 

下面 这 个 所 谓 的 泰勒 (Taylor) 级 数 给 出 了 解析 了 ?本数 f(r) 的 表示 .如 果 a =0, 这 个 级 数 
就 是 马克 劳 林 (Maclaunin) 级 数 . 


和 1 
其 中 Fay 表示 了 在 a 点 的 上 阶 导 数 . 如 果皮 =0, 它 就 表示 f(a). 
训 宁 蕉 断 这 个 无 穷 几 级 数 , 忽略 所 有 深 数 高 于 wn 的 项 ,那么 藉 得 到 了 了 在 oa 点 的 wn 次 泰 
勒 移 项 式 . 记 这 个 多 项 式 为 p,(x). 如 果 a =0, 这 个 多 珊 式 他 称 为 续 克 劳 林 包 项 式 . 


例 17 为 得 到 阻 数 f(x)=e* 的 5 控 马 克 劳 林 多 项 式 , 我们 要 利用 Sam 命令 或 者 BasicIn- 
put 模板 上 的 符号 .下面 给 出 了 三 种 不 同 的 生成 这 个 多 项 式 的 方法 ， 
E[x_] = Explx]; 
(a} Sum{ (D[E[x], {x, Ki]/. x—rO0) /kt x*k, {k, 0O, 5}] 
x x x 
1 txt + ©124120 


de pflx|/.x 0 
(b) DY 0 


2 3 4 3 
于 于 二 二 
+x+ 半 十 完 十 二 + 一 一 
ui a tt 24 120 


a 
Derivativelk||fi|0 
(0) Drivetivel [elo 
E=0 " 
呈 3 机 Ss 
让 让 基 基 
十 着 十 二 二 二 人 一 一 
2 


不 Mathematica 中 有 - 茶 方 使 的 荫 令 ,用 来 构造 送 近 一 个 靖 数 的 级 数 ， 
国 Series[E[xj，|z，a, nl] 生成 一 个 Serieshata 对 每, 表示 f[x | 让 a 点 和 的 次 数 为 n 
的 泰勒 多 项 式 ， 


呈 实 变量 的 解析 旺 数 是 指 世 有 泰勒 级 数 活 开 . 在 实际 认 用 中 通 吧 欧 坟 负数 痕 数 部 是 这 种 类 型 的 ;然而 , 芭 使 函数 具有 各 
阶 导数 , 它 也 沾 -- 定 是 解析 的 . 


" 193 . 
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例 18 fl[x_] = Exp[x]; 
Series[f[xl, {x, 0, 5}] 


4 5 
x [xs 


z 本 | 

于 站 
+ 入 十 一 + 一 二 
ltx 6 24 120 


2 
在 上 面 展开 式 中 的 符号 olx]j" 表示 在 (无 穷 ) 展 开 中 被 忽略 项 的 阶 ,o[x] 意味 着 
秘 和 忽略 项 关于 x 的 次 数 之 6. 


SeriesData 对 象 表示 适 级 数 , 它 没有 数值 . 如 果 又 计算 由 Series 命令 给 出 的 级 
数 的 值 , 号 会 通 到 用 灼 . 


例 19 EfE[x_|= Exp[x]; 
plx _|= Series[f[x], {x, 0, 5|| 


1+ | J* 
2 6 24 120 ~ 


PL1] 

SerilesData: .ssdn : httempt to evaluate a series at the number 1; returning In- 
determinate., 

(试图 计算 级 数 在 数 1 的 值 , 返 回 不 定 值 . ) 

Indeterminate 


为 了 得 看 SeriesData 对 象 的 形式 ,可 以 利用 InputFornm 命令 . 
图 ”TnputForam|[ 表达 式 ] 以 适 台 于 作为 Mathematica 输入 的 形式 显示 表达 趟 ， 


例 20 flx._]= Exp[x]; 
s= Series[f[x], {x, 0, 5}]; 
InputForm| s | 
SeriesData x, 0, 11, 1, 1/2, 1/6, 1/24, 1/120;, 0, 6, 1] 


为 了 把 玫 级 数 转 化 务 可 以 计算 其 值 的 形式 , 条 以 用 函数 Normal 抠 它 转化 为 普通 的 多 项 
式 . 
图 ”Normal[ 级 数 ] 下 回 可 以 计 算 其 值 的 级 数 的 多 项 式 表 示 , 这 时 o[ x]? 被 忽略 ， 


例 21 fx. ]=Bxp[x]; 
a= Series[f[x|, {x, 0, 5!] 
2 .4 .4 
J 
2 6 24 120 
plx_|= Normalls | 


+olx]® 


4 3 
世 下 让 . 
xT 2 6 " 24 " 120 Normal 已 把 3eriesData 时 得 转化 为 普通 狼 多 | 
p[ 1] 项 式 ,后 者 的 信 赴 可 计算 的 . | 
163 
BO 


仁 副 面 例子 中 得 到 的 数 为 163/ 多 0, 它 近 似 等 于 2.71667. 把 这 个 数 与 (已 知 ) 值 e。 > 
2.71828 比较 , H 郑 近 似 值 的 识 莽 很 小 . 当 多 项 式 的 次 数 增 大 时 , 这 个 误差 就 会 趋 半 消失 .上 下面 
这 个 例子 说 明了 这 种 情形 . 


弟 从 竟 微分 运 第 


例 22 ELxz_]= Erplxj; 
exactvalue = £[1 |; 
pln_] .= Normal[Series[f[:|], {x, 0, ni}]]/.x—1 
data = Table[ {n, N[p[n)]], WIAbs[pln] - exactvalue]]), |n, 1, 10}]; 
TableForn[ data, TablelHeadings 一 | Hene la "pl1})’, "Error }|}| 
n pl1) prror 
1 2. 0 .718282 
之 2.5 0 .218282 
3 2.6666"7 0 .0516152 
4 2. 7170833 0.0099485 
5 2.11667 0.00161516 
6 .71806 0 ,000226273 
7? 2.71825 dQ .T78602 
8 2.71828 3.05862 x 10°° 
9 2.71828 3.02886 x 10 
10 2.71828 2.73127 x 10 
例 23 为 了 更 进一步 地 具 恒 坦 看 才 级 数 收 颌 的 情形 ,下 面 构 入 一 个 动画 演示 收藏 于 司 的 可 


克 劳 林 多 项 式 序 列 .者 谨 区 间 


为 [0, 5j .一旦 生成 了 图 像 ,选择 图 形 单 元 括号 , 并 进入 


Cell =—>Aninate Selacted Graphics, 瑟 可 以 启动 动画 演示 .下面 列 出 的 是 各 帧 图 像 . 
flx_] = Bxplxj]; 

pln ，X ] := Normal[lSeries[f[t], ft, 0, nj ]7. 上 一 X 

Do[P1eot[ pln, x}}, {x, 0, 5}, PlotRange —»{0, Exp[5]}], {n,1,10}] 


了 4 i140 1 1 4 
12 i120 pT 
1 0 400 100 
自习 BD 日 站 
80, 60 6 
站 站 上 有 搓 由 
2 也 曲 20 


] 


| 140 149 
100 100 169 
A 8 89 
50 50 6563 
4 4 40 
2 2 20 


上 -3 
Pt 
Ta 
上 
ot 
上 
ke 
rd 

[1 

ni 


可 果 只 需要 级 数 中 某 一 项 的 系数 , 邢 么 可 以 用 命令 SeriesCoefficient. 这 时 实际 的 级 数 
可 能 很 长 ,但 并 不 需要 完整 显示 出 来 . SeriesCoefficient 类 似 于 多 项 式 时 的 Coefficient 命令 . 


' I 


Miathematica 使 州 指南 


量 SeriesCoetficient[ 级 数 ,D] 返回 大 级 数 中 次 数 为 n 的 项 的 系数 . 


例 24 


号 .23 


f[x_]= 了 ExplLx]; 
s = Series[f[x], |x, 0, 10|1]; 
SeriesCoefficient[gs, 10} 


1 
3628800 


习题 解答 


利用 息 接 求 和 的 方法 给 出 男 数 fc)=tan tiz 的 10 次 马克 劳 林 多 项 式 , 然后 再 用 Se- 

ries 丛 令 达到 同样 的 目的 . 

解 上 

flx _] = ArcTan|x]; 

> Derivetive x|[£][0 | 

x XX 
3 


* + 


Series[f|x], {x, 0, 101] 


了 9 
区 上 11 
一 十 十 
了 人 9 olx] 


用 x -2 的 玫 次 组 合 给 出 x* 的 表 杰 ， 
解 FF 


Series[x”, [x, 2, 5) |]//Normal 
32 + BOC—2+x) + BO( -2+x) + 40( -2+x})!+ 10( -2+x)’ + (-2+x) 


构造 函数 yu 在 a=1 点 的 $ 次 泰勒 多 项 式 , 并 用 它 给 出 v372 的 近似 值 . 
解 ”gw 
plx _] = Series[vx, [x, 1, 5| |//Normal 
1 ] ] 5 
1 + (—1+x) -6 (—1+x) + (—1+x)i— T1268( -1+x)+ 1 +) 
approx = p| 3/2 |//N 


1 .22498 
axact = V3/2 | 
1 .22414 


Rbs[approx - exact | 
0.000230715 这 给 出 近似 的 第 对 误差 . 


令 入 5) = sin xX, 构造 它 的 次 数 分 别 为 7，9，11 的 马克 劳 林 多 项 式 , 然 后 在 同一 坐标 
系 中 加 出 函数 了 以 及 三 个 多 项 式 在 0 所 x 扫 2x 上 的 图 形 , 以 观察 它们 的 行为 . 

朋 上 E 字 

f[x_j=Sia[x]; 

p7?[x_] = Series[f[x], {x, 0, 7|]//Normal; 

p9lx ] = Series[f[x], {x, 0, 9|]//Normal; 

Pillx_|] = Series[f[x], {x, 0, 11| ]//Nornal:; 


$24 


OC 一 一 


种 改 章 向 分 运算 


Plot| {tf[x], p7Lxj]， p9|x]， pili[x]}, {x, 0， 2r | ， 
plotStyle — {Thickness[ .01], Thickness[ .001]， 
Thickness[ .001], Thickness[ .001] | ]; 


当 多 项 式 的 次 数 增 加 , 多 项 式 就 更 好 地 通 近 辣 数 (x) = sin x， 


全 I) = sin X, 构 道 它 的 11 次 马 王 劳 林 多 二 式 ,然后 再 攀 造 一 个 误差 同 数 ,并 计算 它 
从 了 =0 到 xx=6 按 单位 步 长 变化 时 的 值 .地 结果 用 表格 的 形式 列 山 来 ,并 说 明 当 了 远 
离 0 时 误 兰 的 变化 趋势 . 

解 

f[x_|]= Sinlx)]; 

plilx ] = ormallSeries[f[x], Ix, 0, 711]; 

error.x* |=Abslf[x)] - plllx]ji 

errorvalues = Table[ |x, error[x}}, {x, 0, 5, 1.1]; 


TablegForm[errorvalues, TableHeadings — |None, | ~ error[x] | 1] 


x error| | 

0 0 

1. 1.59828 x 10 1 

2. 1.29086 X 10 

3. D000245414 

4. 0 .0100021 当 7 还 离 0 避 ,误差 详 得 越 来 郁 大 ， 
5 0 .174593 

6 ， 1 ,78084 


令 (x)= sin x ,构造 次 数 分 别 为 1，3 ,5, 7, 9 的 马克 劳 林 多 项 式 , 并 计算 它们 在 x = 
1 时 的 值 .确定 近似 误差 ,并 用 表格 列 出 结果 ， 

解 # 

flx | = Sin|x]; 

exactvalue = f[1]; 

pln | .= NormallSeries[f[x], Ix, 0, nl]]l/. x—1 

data = Table[ {fn, N[p[n]], Nilabs[pln] - exactvalue] ]|}, In, 1, 9, 21]; 
TableForm| data, TableHeadings — [Hone, {"n, © p[1}”, “Error’l|] 

n p(t1) Error 

1 1 . 0.158529 


了 J .B33333 0 .008137589 妆 nn 蛮 大 时 ,误差 灾 得 惑 小 . | 


19， 


+ 200 ， 


8 .2 


38.27 


Vathematiwa 使 用 指南 


5 0., 8341667 0 .000195582 
7 D0. B41468 2.734084 x 1 ° 
9 0.841471 2 .48923 x 10 


令 fx) = lny 构 造 它 在 ae=1 处 的 5 次 ,10 次 与 15 次 泰勒 多 项 式 . 然 后 在 同 :坐标 
系 中 四 出 范 数 f(z) 与 三 个 多项式 在 ! 所 x 态 2 上 的 图 户 . 
解 。 区 
fl[x_j=Log[xji 
ps5[x_| = Series[f[x)j, {x, 1, 51 j//Normal; 
pl0[x ]= Series[lf[x], {x, 1, 10} ]//Nornal.; 
pi5[x ] = Series[f[x}, {x, 1, 15} ]//Nornal; 
Plot[ | 下 [xj ，p5[xj，pl0[xj，pl5[zj | ， x, 1, 2;, 

PilotStyle 一 |Thickness[ ,01], Thickness[.001], 

Thickness[ .001], Thickness[ .001]|]]; 


已 .如 


0.€ 
0 .4 


DO .2 


1.2 1 1.E I.9 2 


令 XY)=ln z, 构 造 它 在 a =1 时 的 5 次 泰勒 多 项 式 .然后 构造 一 个 误差 函数 ,并 计算 
二 仕 =1 变 到 工 =2, 步 长 为 0.1 时 的 值 .把 结果 以 表格 的 形式 显示 出 来 ,并 说 明 当 x 
远离 1 时 ,误差 的 变化 趋势 . 

解 ti 


f[x_] = Log[xj; 

p5[x_j = Normal[Series[frx]，|z， 1，5]]]， 
error[x _|] =Abs[f[x] - ps5[x]]; 
errorvalues = Table[ {x, error[x]}, {x, 1, 2, .1}1]: 


TableForm| errorvalues, TableHeadinys ~—* [None, | x,” error[x1"}}|] 


x error| x | 

1 0 

1.1 1.53529 x 107 7 

1.2 9.10987 x 107 

1.3 0.0000967355 

1.4 0.000509097 

1 .5 0.00162656 | 当 : 远离 1 时 , 误 荧 变 得 越 来 武大 . 
1.6 0.00514837 | 
1.7 0.0122941 

1.8 0.026016 

1.9 0.0502191 

2 . 0.0901862 


8.,28 


8.29 


令 F(z) =]n .构造 次 数 分 别 为 1]，2，3,， 


第 八 章 被 分 运 前 


一 1.5 处 的 值 .确定 近似 值 的 误差 ,并 用 表格 列 出 它们 . 


县 EE 


f[x_]=Loglx); 
exactvalue = f[1.5]; 


pln_j : = Normall Series[f[x], ix, 1, n| ]]/. x—>1.5 
data= Table[ {n, Nip[n]], HLabs[p[n] -exactvaluel]]}, fn, 1, 10}]; 


TableForm[data, TableHeadings ~—* {None, {n’,’p(1.5})”, “Errer”}|]] 


pl1.5) 
.5 

,375 
.416667 
.401042 
.407292 
. 404688 
,405804 
.405315 
,405532 
,405435 


PP 


区 


六 " 
LE 


LP 


Error 


. 0945349 
0304651 
:011z2018 
.00442344 
.00l182636 
.0007776D8B 
.000338463 
.000149818 
.ONO06F7196 
. 0000304603 


在 sin(x“+ 1) 的 马克 劳 林 级 数 中 第 20 项 的 系数 是 多 少 ? 


入 E&F 


s= Series[Sin[x: + 1|, Ix, 0, 20|}, 


SeriesCoefficient[s, 201 


Sin| 1 


23628800 


CCC- 


…，10 的 马克 劳 林 多 项 式 , 并 计算 它们 在 


第 九 章 ”积分 的 计 苯 


9.1 反 导 数 


函数 了 的 反 导数 就 是 满足 F(x)= 了 (zx) 的 函数 下 .命令 Integrate 可 以 得 到 友 导 数 . 然 
凋 要 注 夺 在 党 染 中 并 不 包含 积分 带 数 C. 


加 ”Integrate[f[lxj]，xj] 计 算 扩 导数 {不定 积 分 ) |f Ca)ax. 也 可 以 用 Basicinput 模板 上 
的 [ a 口 符号 . 
Mathematica 可 以 计算 在 标准 积分 表 中 能 找到 的 初等 外 数 的 反 导 数 , 但 是 如 果 不 能 用 初等 
卫 数 表示 反 导 数 , 这 个 软件 就 会 尝试 用 特殊 肾 数 表示 反 导 数 , 如 果 这 还 不 行 的 放 , 它 就 会 返回 
元 法 计算 的 积分 ， 
例 1 | xz2zxpfx]Sin[x] dx 或 者 Integrate[x -2 Exp[x] Sin[x], x] 


1 4 
-me*(-1 +x JCos[x] = Fe (-1+x)Sin[x] 


例 2 | Sin[xw] Gx 或 者 Integrate[ Sin[x "2], x] 这 个 积分 没有 简单 的 反 导 数 ,因此 Math- 
ematica 用 Fresnel 正弦 积分 表示 它 . 
| 一 至 presneasl 2 2 | 2 
和 sS[x]= | sn "| dt 


例 3 | Sin[Sin[x]]3x 或 者 Integrata[Sin[Sin[z]，x] 


|sin[sin[z]] 于 < Mathematica 不 能 计算 这 个 反 导 数 . 
当 要 处 理 已 舍 参 数 的 一 般 反 导数 时 ,必须 仔细 一 些 


例 4 | az 


1+n 
其 


lt+n 


当然 , 这 个 第 困 只 有 在 关 -1 时 成 站 ,但 是 如 果 指 定 了 的 其 体 什 , Mathematica 就 
知道 如 何 计算 了 


= 一 二; 


[ax 


Log| xj 


9 .2 


9 .3 


,4 


9,5 


9.6 


第 九 章 积分 的 计算 ' 2003。 


一 -一 一 


计算 不 定 积分 | /Ld 
解 1 


| yx 9 或 者 Integrate[yx, x] 


2X373 
3 


计算 椒 定 积 | y a: + x dr . 
解 4 于 


| ya + KK 或 省 Integqratel] ya + x, x] 
>x va tx + >aLog[ x + Yas +x J 


计算 不 定 积分 | 二 ;0 ， 


解 ” 晤 


| = 5 和 证 .或 者 Integrate[1/Sgrt[ 由 一 让] ， | 
Q = 忆 


Log [ut+ -一 时 + 这] 


计算 不 定 积 分 |anhzdz , 
解 # 王 
| ranh[z] dt 吐 者 LIntegrate[ Tanhfx]，Fx] 


Log [Cosh[x| | 


计算 Ga) [fF Ce)drs(b) Ja (f(D) (rdr. 


J einas | [slx]lF [x]ax 


qlflx)) 


移 造 |sin"xdz 在 n = 1,， 2，…，10 时 的 积分 表 ， 
解 上 FF 
anti[n_]: = | sinlz]*ax 


Table[ |n, anti[n]//Together|, |{n, 1, 10;]//TableForm 
1] — tos|[x| 


2 (2x- Sin[ 2x |) 


vathematca 使 用 指明 


3 区 -9cos[x| + Cos| 3x | ) 
4 (12x ~ 8Sin[2x] + Sin|[ 4x |) 


1 
5 2 - 1s0Cos[x| + 25Cos[3x| — 3Cos| 5x]) 


6 07 (60x — 45Sin[ 2x| + 9Sini 4x | - Sin| 6x1) 


1 
0 ~ 1225Cos[xj +245Cos[ 3x| - 49Cos[5x] + 5Cos[ 7x]) 
1 

8 (340x- 672Sin[2x] + 168Sin[ 4x] - 32Sin[6x] + 3Sin[8x]) 


1 _ - 
9 ea — 39 的 0Cos[x] + 8820Cos[ 3x] - 2268Cos[ 5x ] + d05Cosi7x] -~ 35Cos[ 9x]) 


1 , . . 
10 10240 C2320x —21005in[2x| + 600Sin[ dx | -150Sin[6x] + 253in[ Bx | - 2Sin[ 10x}) 


9.2 定 积 分 


定 可 分 可 以 用 两 种 方法 计算 ,一 种 是 准确 计算 , 即 用 微 积 分 基本 定理 进行 计算 , 另 一 种 是 
近似 计算 , 即 用 数值 方法 计算 积分 . 可 以 指导 Mathematica 选择 具 栖 的 计算 方法 , 方法 就 是 选 
内 下 述 两 牺 命 分 ， 


国 ”Integrate[f[xj，!x, a,， bi 只 要 有 人 订 能 ,就 i 算出 | rr)d 的 玲 狙 秆 .可 以 用 
加 
BasicInput 模板 上 的 | abD] 梨 配 实现 同样 的 功能 . 
国 NIntegrate| f|x |, {x, 到， bj 严格 利用 数 人 方法 计算 | F(z)dz 的 近似值 . 


NIntegrate 利用 日 后 应 算法 计算 积分 的 近似 值 , 它 对 积分 区 间 进 行 分 割 , 表 到 达到 指定 
的 谁 确 度 为 于. 实际 上 这 里 对 区 间 进 行 递 归 分 割 [， 直到 这 到 AccuracyGoal 或者 PrecisionGoal 
要 求 为 止 ， 
* AccuracyGoal 选项 指定 在 最 终结 果 中 小 数 点 右边 应 有 骆 少 位 小 数 . 软 认 值 为 Mac- 
curacyGoal —infinity, 这 规定 不 要 用 准确 度 作 为 终止 数值 算法 的 依据 . 
“《 ”WorkingPrecision 这 项 指定 在 中 间 计 算 过 程 中 要 保留 多 少 亿 精确 位 数 , 软 认 值 为 
WorkingPrecision — $ WorkinygPrecision, 世 通 常设 为 16. 


” PrecisiondGoal 指定 在 最 终结 桌 中 应 有 和 多少 位 准确 数字 . 点 计 谤 针 汐 Precigion- 
Goal 一 Automatic, PrecisionGoal 值 为 WorkinqPrecisicn 减 去 10. 


另外 还 有 许多 选项 ,可 以 控制 实现 的 算法 达到 指定 的 精确 度 , 但 这 里 不 子 讨论 ,这些 选项 
对 讨论 "病态 " 尘 数 的 积分 (如 | ”sin[ 二 | dz 或 者 | 
趣 鸭 读者 串 以 查阅 Mathematica 的 帮助 文件 . 


er dx) 非常 有 用 ,其 使 用 细节 , 有 兴 
命令 序列 [Integrate[f[x]，[x，a， bj]] 或 者 | 2[x] a x//N 在 有 可 能 的 情况 下 , 先 计生 
反 导 数 ,然后 应 用 微 积分 基本 定理 计算 积分 的 值 , 如果 这 个 方法 不 行 的 话 , 它 就 会 皇 动 证 用 


NIintegrate[f[x], ix, a, b|]. 


一 一 一 一 一- 一 一 


例 5 


例 6 


例 9 


第 九 章 积分 的 计算 


为 了 计算 | zersinzdz， 输 入 命令 

Integrate[x Exp[x|] Sin[x], |x, 0, 1}] 

一 六 + 了 se Sinl 1 

我 们 也 可 以 借助 于 BasicInput 模板 ,采用 另外 一 种 表示 . 

| > Exp[x]Sin[x] dx 

如 末 厦 理 给 出 数值 近似 值 ,可 以 输入 

| > gxp[x1sin[xj d x// 了 或 者 由 [ITntegrate[x gxpfx] Sin[x], [x, 0, 1}]] 


0 .643678 


这 里 ,首先 计算 zersin z 的 友 了 导数 ,然后 计算 它 在 0 与 1 上 的 函数 值 差 .如 果 更 希望 采 
有 一 种 数值 积分 方法 ,那么 可 以 输入 : 

NIintegrate[x Exp[x] Sin[x|l, {x, 0, 11] 

0 ,643678 


假设 我 们 要 得 到 定 积分 | xin(sin x)dz 的 有 20 位 有 效 数字 的 近似 值 , 可 以 输入 如 下 指 
M[| sin[sin[x]] d x,201 

0.43060610312069060491 

这 时 Mathematica 就 会 自动 调 各 WorkingPrecision 与 PrecisionGoal 的 售 , 以 达到 所 
要 求 的 精度 . 

Mathematica 也 可 扩 处 理 革 些 广义 积分 .第 【类 型 的 广 浆 积分 是 指 积 仓 的 一 个 战 两 个 各 


分 限 为 无 穷 .定义 | f(z)az - 各 | fr)dr,| _f(z)dz = lim| f(x)dz, 前 提 条 件 
是 这 码 个 羽 限 存在 .这 尽 的 积分 称 为 收 合 积分 .如 果 | ，A(z)dz 与 | f(z)ax 都 存在 


我 们 就 定义 | f(z)de = | FC)de +| fr)dz. 


| xdx < 这 个 积分 是 发 数 的 . 


四 1 
一 一 一 种 
| . 1+ x - 


nT 


第 I 型 广义 积分 的 值 可 以 习 在 积分 式 中 的 参数 有 关 . 选 硕 Assumptions 可 以 给 这 些 参 数 


加 上 到 值 亲 件 . 


"203 - 


" 2 


Niatherma'ira 使 用 指 丙 


一 ua -= 


。 ”Rssumptions 习 条 件 指定 在 积分 式 中 参数 取 值 要 满足 的 杀 件 ， 


例 10 对 于 广义 积分 | de, 如 时 ) < -1 则 积分 收 笋 , 否则 积分 发 散 . 


TnteGzrate[ 工 ~ n，|x，1，oco | ，Rssaumptions >n -1] 


l 
—1-n 


第 1[ 慌 广 义 积分 是 指 函 数 在 积分 区 间 上 不 过 续 . 如 果 在 [a,，5) 上 连续 ,但 在 5 点 
不 连续 ,就 定义 | (x)ax = lim | f(z)dzri; 而 如 果 了 在 (ea, 6] 上 连续 ,在 a 点 不 连 
续 , 就 定义 | f(x)dz = lim 人 F(x)az .如果 这 两 个 极限 存在 的 话 ,我 们 称 广义 积分 是 
收 全 的 .如 果 了 在 。E [4，5] 上 不 连续 ,而 | f(x)dx 与 | fC)de 都 政 化 , 则 定 文 


| rodz = | f(r)ax 十 | rz)az， 


1 
例 11 | koglxl ax 
-1 
3 
例 12 | 土 ax 或 者 Integrate[1/x， |x，~ 2，3}] 
-2 
Integrate. :1div : 


Inteqgral of does not converge on |— 2，31 
(二 在 [- 2, 3] 上 的 积分 不 收敛 ，) 
| Liax 
-2 区 
有 时 候 ,即使 积分 发 散 , 但 它 的 柯 西 主 值 是 存在 的 . 


* PrincipalValue 一 True 指定 计算 的 是 积分 的 河西 主 值 ， 


下 面 这 个 例子 讲解 了 柯 西 主 全 的 含义 ， 


例 13 考虑 例 12 中 的 积分 | ”全 .由 于 被 积 函 数 在 0 点 不 连续 , 所 以 这 是 一 个 广义 积分 .如 


-2 


果 把 积分 分 成 两 个 积分 的 和 :| 和 + | 上 那么 分 别 计算 这 两 个 积分 可 知 它们 都 是 


_2 7 
发 散 的 .然而 
一 了 3 
Lim | dx +| dz |= fim [nlzxzil s+lnlz ?| 
1 -这 + i 
一 lim [lnt — ln2 + ln3 — lnt | 
=ln3 - ln2 


第 九 章 积分 的 计算 


计算 柯 西 主 值 的 基本 想法 就 是 不 分 开 计算 两 个 积分 ,而 是 同时 计算 它们 ， 


Integrate[1/x, {x, - 2, 3}, Principalyalue 一 True] 


3 

Logl 2 
习题 解 等 
9.7 计算 由 曲线 f(z)=1 - 六 与 g(z)=x4- 3x* 围 成 的 区 域 的 面积 . 

解 
f[x_1=1 - x 
gl[x_]=x- 3x; 
<< Graphics” FilledPlot~ 


FilledPlot[{f[x}, glx]}, {x, -2, 2}]; 
intersectionpoints = Solve[f[x] ==g[x]] 


Se 
人 1 (x A142)) 


-曲线 的 次 总 对 应 于 这 个 方程 的 实 根 . 
a= intersectionpoints[ [3,1,2]|; 


b= intersectionpoints[ [4,1,2]]; 


eral - g[x]} dx//Sinplify 


1 +y2(41+y2) 


/YN 
4.48665 


9.8 由 曲线 y= 了 f(x) 与 区 间 [a, 5] 转 成 的 区 域 绕 x 轴 旋 转 得 到 的 立体 体积 为 
r| [7(z)]?dz .把 半 加 9 = yr -x -rr 所 Y 近 > 红 z 轴 旋转 , 得 到 一 个 球 ,由 前 面 
的 公式 计算 球 的 体积 . 


Rathematisa 使 用 指南 


Ce 


解 上 下 

y= vr "x; 
| YT 

Ei -rE 


并 


3 
计算 高 为 及 ,上 下 底 半 径 分 别 为 7 与 R 的 加 台 的 体积 ,并 由 该 公式 给 出 底面 半 和 多 为 R， 
高 为 上 的 圆锥 的 体积 ， 
解 上 地 
圆 台 是 由 过 接 (0，r 与 (A，R) 的 育 线段 以 及 加 围 成 的 区 域 绕 > 轴 施 转 得 到 的 立 
体 .这 条 线段 的 方程 为 y= 有 二 cx + ,因此 立体 的 体积 为 | y?dx 


及 
和 一 y= tr 
| h 
| | Y dx//Factor 
疾 


hr(r + rR+ PR 


/IO “人 仿 了 一 J 可 得 到 人 屋 锥 . 


1 02 
3 DTR 


9.10 由 f(x),a 世 x 性 b 表 示 的 - 段 泊 线 的 长 度 为 L= | .IT TCD dz 由 此 公式 让 
算 正弦 曲线 一 拱 的 近似 长 度 

解 上 

正弦 曲线 的 一 拱 是 由 0 所 z 去 x 确定 的 

f[x_|= Sinlx|; 


NIntegrate[Sqrt[1+£'[x]"2], |x, 0, Pi}] 
3.8202 


积分 中 值 定理 指 的 是 如 果 了 在 闭 区 间 [a, 5] 上 连续 ,那么 存在 :个 介 于 a 与 之 间 的 


数 c ,使 得 {fr)as = fc)tb 一 a). 对 于 区 同 [1, 2] 上 的 卫 数 f(x) = In x, 求 出 满 
足 中 值 定 理 的 慎 =. 

解 上 

flx_]= Loglx]; 

a=1; b=2. 


b 
solve[ | f[x}]ax == flcj(b - a}),cel//Simplify 


/A 


lc — 1.471521| 


在 + 轴 上 面 ,曲线 下 向 向 光 域 的 面积 ,等 | 
| j- 由 确定 的 知 形 的 面积 


第 九 人 齐 机 全 的 计算 + 209 ， 


9.12 ”把 一 个 物体 从 。 拖 到 上 施加 的 力 为 杰 才 F(z), 那 么 所 微 的 功 为 f(x) qz 根据 胡 克 


定律 ,为 了 把 一 个 弹簧 拉 长 ,所 需 的 力 正比 十 弹簧 相应 天 自然 长 度 的 变化 . 如果 一 个 强 
息 的 自然 长 度 为 10 em, 把 它 拉 长 5 em 需要 外 力 50 牛顿 ,那么 把 弹 赞 从 10 cm 近 长 到 
15 cm 需要 做 多 少 功 ? 


解 ”EF 

由 谓 克 定律 , F(x) =x. 由 于 为 了 拉 长 5 cm(0.05 m), 需 要 外 力 40 牛顿 ,所 以 有 40 = 
0.05k. 

k= A0/0.05: 

f[x | =k x: 


0.05 
WOIK = | ELx] dx 
0 


做 功 1 焦耳 ， 


9.3 ”由 积分 定义 的 水 数 


如 果 fF 为 区 间 [a, 5] 上 的 连续 函数 ,那么 我 们 可 以 如 下 定义 一 个 新 的 函数 
严 ( 二)》 = | ad 


且 观 二 说 ,如 果 A(z) 之 0, 那么 当 x 之 上 时 ,FF(z) 表示 由 f(z:) 与 + 轴 转 成 的 介 于 a 到 > 之 
间 的 区 域 的 面积 ; 旭 果 zx 之 a, 表 示 这 个 面积 的 相反 数 . 由 微 积 分 {第 二 ) 基 本 定理 可 知 ,(i) 下 在 
Wa， 5) 上 可 微 , 而且 (i) (x)= f(x) 对 所 有 的 x € {a,b) 成 立 ， 


例 14 令 Fz)=1ryz > 0. 假 设 z 之 1, 那么 下 图 中 的 阴影 部 分 的 面积 就 是 FC) 
学 过 微 积分 的 人 都 知道 ,这 个 积分 把 
F{zr) 定义 为 自然 对 数 函 数 . Mathe- 
matica 也 知道 这 一 点 ， 
f[x_ |= 1/x; 


Flx ] = | 5 Qt 

Log. x] | 
F[2]//N 所 2 
0.693147 

Fi1/2|//N 

- 0.693147 


10， 


.Id4 


90.15 


Mathematica 使 用 指南 


函数 f(x)= zx* 存在 度 导数 ， 但 这 个 反 导数 不 能 用 初等 函数 表示 出 来 , 然 乓 Marhe- 
matica 可 以 把 这 个 函数 认为 是 由 积分 定义 的 画 数 . 由 于 f(x ) 的 所 有 反 导 数 之 间 差 一 
个 常数 ,我 们 把 F(x) 定义 成 满足 F(0) =0 的 反 导 数 .下 面 画 出 反 导 数 在 0 去 之 4 
上 面 的 图 形 . 


f[x ]=x*x; 
Fix ] = | stt] dt <* 通过 把 下 限 取 为 0, 从 而 使 得 Ft0) = 0 
Plot[¥[x], [x, 0, 4}] 


D3 1 1.5 2 2.5 3 5 4 
习题 解答 


令 F(x) = | egz, 求 出 F(x). 
解 ”# 


F[x ] = | sxp[sia[t]] dt， 
FLx | 


ee [Re] 这 符合 微 积分 第 二 基本 定理 . 


在 同一 坐标 系 中 画 出 zx) = er 分 别 相应 于 F(0) = 0, F(1) = 0 与 F(2) = 0 的 二 
个 反 导 数 的 图 形 ,绘图 区 间 为 0 < x < 2x 


解读 
f[x.] = Exp[Sin[x]]; 


Fifx ] = | st 好 七 ; 


F2[x ] = Et dt: 


F3[x ] = | sft dt; 


Plot| {Fi1[x], F2[x], F3[x]|, |x, 
0, 2x) ] ， 


考 虚 右 图 所 示 的 半圆 xz + y =16,% 
> 0, 求 出 高 度 ,使 得 阴影 部 分 的 面 
积 等 十 整个 半圆 面积 的 一 半 . 

解 旺 


从 半圆 的 方程 中 用 y 解 出 函数 x， 
Solve[lx + vy ==16, x] 


TT TE i pp tt 


第 九 章 积分 的 计算 


Is ] a 
通过 对 y 轴 进 行 分 割 , 并 利用 对 称 性 , 我们 得 到 下 述 关 十 A(h) 的 表示 :A(h) = 
2| zx(y)ay, 其 中 x(y) = v16— y’, 


x[y_]= v16-Y; 


A[h_] = 2 | zt dy; 


下 面 先 计算 整个 半圆 的 面积 【虽然 我 们 已 经 知道 圆 的 面 和 公式 ,但 这 不 失 为 检验 是 否 
有 错误 的 好 方法 .) 

A[4] 

Sx 

六 了 得 到 解 的 悄 计 值 , 下面 图 出 A(6) 的 图 形 . 
Plot[A[h], |h, 0, 4}]; 


由 图 可 气 , 半圆 面积 的 一 尘 4rss 12.5 
对 应 于 五 的 值 掌 近 1.5. 下 面 骨 Find- 
Root 完成 这 利 题 目 . 

FindRoot[A[h] == 4x, ih, 1.5|] 
ih— 1.615891 


下 面 给 出 的 曲线 为 抛物 线 y=9 - z. 求 出 有 的 值 使 得 阴影 部 分 的 面积 是 由 曲线 与 x 
轴 转 成 面积 的 2/3. 


解 # 王 


SolvelY==9 ~ x:, zx] 
Li 9- yl, {x> V9— yi 
a a*[y_]= v9-Yy; 
Alh_] = 2 | x[y] dy; 
totalarea = A[9] 
46 
Plot[A[h], fh, 0, 9}]; 


2 4 6 3 


FindRoot[A[h] = = [2/3)totalarea, |h, 5|] 
[Ih — 4.67325| 


sell 


“之 1 了 。 


Mathematica 使 用 指南 


9.17 ”在 抛物 线 vw = z“ 上 哪 一 点 离 原 点 的 曲线 长 度 为 5? 


解 jy 
函数 f(z) 从 a 到 5 所 定义 曲线 的 长 度 为 L = | V1+T[F()Jar. 
f[x_]=x; 


l[x ] = | 1+f£[t] 可 七， 
Plot[1[x], {x, 0, 3}, AxesLabel 一 jx， “1{x)”)]; 


1 fw) 


和 


由 图 上 可 知 Lt2) ms5. 


品 
后 
和 4 
2 


1 


FindRoot[1[x|] ==5, {x,2})] 
1x — 2.08401} 
| ss [[1,2]], £[ Ss[[1,2]]]) 


|2.08401, 4.34308| 所 求 点 为 (2.08401,4. 34308). 


9.18 一 个 拌 料 用 的 矿 是 半径 为 5 英寸 的 半球 .计算 其 中 右 100 立方 英寸 液体 时 的 高 度 . 
解 EE 于 
在 三 维 空间 中 半球 的 方程 为 z?+ vy2+ 
x 二 25, = 所 0., 它 与 平面 z= *, 的 交 是 
圆 x*+ y*=25 一 zf, 其 半径 为 25 一 zi， 
面积 为 rt25 -- 23). 把 这 个 表达 式 相应 于 
zi 进行 积分 ,就 得 到 阴影 部 分 的 体积 为 


一 当 十 真 
V(R) = "| 。 (25 一 2 ) dz . 


v[h _] = x| 2s 一 zx] 本 世 区 
-5 
| 5 - 生 | > 


作为 一 种 习 验 步骤 , 可 以 计算 v(5) 以 得 到 半球 的 体积 . 


v[5] 
250x 半径 为 + 的 六 球体 积 为 全 wy， 
3 


可 以 画 出 hh 的 国 数 r 的 图 形 . 

Plot[vy[h], ih, 0, 5), AxasLabel —{"h”, “vy[h]"}]; 

由 于 vy(h) 是 多 项 式 函 数 ,所 以 可 以 用 RSolve 命令 确定 所 求 的 近似 值 . {由 上 图 可 知 ,4 
靠近 3.) 

NSolve[v[h] == 100] 

jih— —2.34629|, {h— 2.,79744!, Ih— 14,5489|| 

显然 惟一 的 合理 解 为 有 =2,79744 英寸 . 


第 九 章 积分 的 计算 , 13 . 
CC 


区 


1 I 3 虹 所 h 
9.19 一 个 地 下 油 饶 是 椭圆 形 截面 的 圆柱 .这 个 油 钢 长 : =20 英尺 棋 圆 的 半 长 轴 长 a = 10 
这 尺 , 半 短 轴 长 5=5 英尺 . 为 了 确定 在 油缸 中 还 有 多 少 油 ,用 一 个 本 棍 播 到 油 负 中 ， 直 
到 接 铅 到 油 矶 底 为 止 , 这 时 只 要 量 一 下 棍 上 粘 油 部 分 有 多 长 ,就 可 以 知道 油 的 体积 如 
信 在 油缸 中 只 有 500 立方 英尺 的 油 , 木 棍 粘 油 部 分 应 有 多 少 ? 
解 “ 革 


彤 图 的 方程 为 三 + 各 =1. 首 先 把 x 定义 成 y 的 函数 


现在 就 得 到 了 油 铅 中 截面 的 面积 公式 .这 
主 利用 对 称 性 , 只 取 正 解 ,然后 把 面积 加 


倍 ， 
a= 10; p=5; 

| ,2 
x[y_]=a J1- 考 ; 


area[h_ ] = 2 | at dy; 
作为 一 种 检验 的 方法 ， 可 以 计算 area[ 0 |， area[b] 与 area[2b] 的 面积 . 由 椭 贺 + 和 
= 1 围 成 的 区 域 面 积 为 re6 

area[0 | 

0 

ageafhb] 

257 

area[2b | 

5 

由 于 油饼 的 截面 是 均匀 的 ,所 以 它 的 体积 = 长 度 x 截面 面积 

1 = 20; 

v[h_]=1 arealh]; 

为 了 得 到 当 油 的 体积 为 500 立方 英尺 时 木 棍 粘 油 的 近似 长 度 . 下 面 先 男 出 v(h) 的 图 
形 , 给 出 的 一 个 估计 值 ,然后 再 用 FindReot 得 到 一 个 更 精确 的 近似 值 . (我 们 不 能 同 
前 一 习题 那样 使 用 NSolve 命令 ,因为 这 里 v(h) 不 是 代数 函数 . 让 

Plot[v[h], {h, 0, 20], AxesLabel —*{“h", “vy[h]"] ] 

FindRoot[v[h] == 500, {h, 2}] 

|h 一 2.1623| 


:214 ， 


9 .2 


2 
可 知 其 半 长 办 与 半 短 畏 为 。 /1 - 到 


5x 
v[h ] = 3 


Matbhermatica 使 用 指南 


从 图 上 可 知 wayss500， 


一 个 地 下 油缸 是 椭 球 体形 状 , 其 半 轴 长 分 别 为 6 英尺 ,10 英尺 与 6 英尺 .( 这 个 问题 虽 
做 相对 了 于 前 一 习题 要 困难 一 坚 , 但 更 符合 实际 情形 . ?为 了 确定 在 油缸 中 还 有 多 少 油 ， 
用 一 个 木 棍 皇 到 狂 负 中 , 直到 接触 到 油 拭 底 为 止 ,这 时 只 要 量 一 下 根 上 粘 油 部 分 有 允 
长 ,就 可 以 知道 狂 的 体积 .如 果 在 油 抵 中 只 有 500 立方 英尺 的 油 , 木 棍 粘 油 部 分 应 有 多 
消 ? 


解 4 

精 球 的 方程 为 35 + 与 + 三 =1, 其 中 a=6, 5 = 10,c=6. 糖 球 与 平面 z= zo 的 交 线 为 
本 加 车 + 和 = 1 - a , 它 的 面积 为 xo 的 函数 , 可 以 计算 出 来 ,然后 对 这 个 面积 相应 

积分 就 得 到 所 求 的 体积 


为 了 计算 椭圆 的 面积 ,我 们 要 利用 一 个 事实 , 那 就 是 椭圆 的 面积 等 于 r 滋 以 它 的 半 长 


各 与 半 短 过 的 积 ,把 大 + 号 =1- A 一 > 
了 | — 之 0 


2 
与 5 1- 全 因此 椭圆 的 面积 为 ”jo 
时 0 
rab 代入 这 里 4a, 5 与 的。 6 
号 日 白 
具体 值 , 得 到 60x| 1 - 纪 | - 至 (36 。 ao 


一 2z0) .对 它 进行 积分 ， 人 2 4 E 8 10 ~ 12 " 
表示 的 油 的 体积 公式 ; VY = | 


3 "(36 一 zydx 


-6+h 
(36 - 中) dz; 
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Plot[v[h], {fh, 0, 12}, 

AxesLabel 一 人 “vih]”}]: 

NSolve[ v[h] == 500] 

11h 一 -3.63858|, Ih — 4.62871|, 

|h — 17,0099!| 
因此 木 棍 烙 油 的 部 分 长 诬 约 为 4.62871 英尺 . 其 它 解 都 是 增 根 ， 


9.4 黎 时 和 
给 年 区间 [1=[a，#], 所 谓 对 它 的 分 割 ,就 是 一 组 子 区 间 ， 
[ros | Lis pM ee SE 
其 中 zxo=a,xs = 五 ,如 果 取 ”为 第 ; 个 子 区 间 中 的 任 一 点 ,Ar; =x, - zx ;表示 第 ;个子 区 
间 的 长 度 , ||P| = max Ax,, 那么 了 在 区 则 I 上 相应 于 P 的 区 曼 和 为 SC. 


如 果 f(x) 之 0,@ 所 x 所 5, 那 么 上 述 黎 曼 和 就 表示 从 z=a 到 z=b 在 f(x) 的 图 形 下 
方 ,z 轴 上 方 区 域 面积 的 近似 值 .十 图 给 出 的 是 函数 f(z) = x? 在 区 间 [1，2] 上 的 一 种 魏 晶 
和 ,这 里 给 出 的 黎 曼 和 是 由 等 宽度 的 四 个 矩形 的 面积 组 成 的 


ftx) 


/lz 上 一 一 一 一 一 一 


本 | 
上 2 RE 
A | 
| 
Lh 
TR = 


在 上 图 中 由 阴影 部 分 围 成 的 矩形 面积 就 是 黎 曼 和 , 它 只 是 曲线 下 方 区 域 面积 的 近似 然 
而 , 当 取 越 来 起 多 的 矩形 时 , 近似 的 效果 就 会 越 来 越 好 , 在 曲线 下 方 的 面积 就 是 这 个 过 程 的 极限 ， 
在 大 多 数 微 积分 教材 中 都 把 [a，&b] 上 f(z) 的 定 积分 定义 为 


[faz 四 Dim 2 f(z? Ax;. 


对 件 ‖P1 一 0 保证 当 取 越 来 越 多 的 子 区 间 时 , 所 有 子 区 间 的 长 度 都 趋向 于 零 .如果 所 有 子 区 
间 的 长 度 都 相同 , 那么 这 个 条 件 就 等 价 于 n -oo .为 了 简单 起 见 ,我 们 下 面 只 考虑 等 长 度 的 子 
区 间 .然而 从 理论 的 角度 来 说 , 并 不 必 一 定 是 这 样 的 ， 


例 16 下 面 考虑 在 区 间 [0，m/2] 上 的 函数 f(x) = sin z .由 于 已 知 | ”sinzdz = 1, 所 以 很 
易 知 道 下 述 结果 的 逼近 程度 . 
(a) 下 曾 使 用 100 个 子 区 间 , 并 取 x: 为 每 个 子 区 间 的 左 端 点 .由 于 sn - 性 这 个 区 
由 上 是 单调 递增 的 , 所 以 得 到 下 方 近 航 ， 
f[x_] = Sin|lx]; 
a=0; b= x/2; n= 100; 
Ax= tb - a)/n; 二 由 于 所 有 的 Az 长 度 一 样 ,因此 不 需 加 下 标 . 
xstar[i |]=a + (i-1}Ax; 


y f[xstar[i]]Ax//N 


0 .39z2125 


"ls* 


"216- 


例 17 


Mathematica 使 用 指南 


Cb) 选择 r; 为 每 个 于 区 则 的 右 疾 点 ,这 样 可 以 得 到 上 方 近 似 ， 


xstar[i J]=a + i Ax; 
外 


>》 f[xstar[i] |]Ax//N 


= 


1 .00783 


tc 


Te 


中 轧 法 则 方法 ， 


(x) 


5 5 0 


poh 
局 


利用 四 个 梯形 的 面积 和 近似 | 


的 梯形 面积 为 全 (A + B), 因 此 在 第 ; 


个 于 区 同 | zx,-1, zz,] 中 构造 的 梯形 面积 


为 EE f(z) + (7)]. 


把 每 个 于 区 间 上 的 梯形 面积 加 起 来 , 就 
得 到 整个 曲 边 梯形 的 面积 , 即 


LAT? 


为 了 改进 上 述 近 似 效果 ,我 们 取 zy” 为 每 个 子 区 间 的 中 所 ,这 样 就 得 到 了 所 谓 的 


xstar[i ]=a + (+ ,5) Ax; 


> flzxstar[li | |]Ax//N 


1=1 


1.00001 

显然 ,近似 的 效果 得 到 提高 . 

另外 一 种 简单 的 近似 方法 ,就 是 梯形 法 则 ， 
它 遂 过 连接 每 个 子 区 间 两 个 端点 对 应 于 上 曲 
线 上 的 点 构成 一 个 梯形 , 计算 面积 时 使 用 
的 是 这 些 黎 形 的 曾 积 和 , 而 不 是 原来 的 第 
形 面 积 , 从 而 提高 近似 的 精度 . 

底 过 长 为 Ax, 两 个 侧 边 长 分 别 为 A 与 BB 


SH/ + /xD)] + S20) + 1x2)] + SICz2) + Hx)] + 


Ar, 


十 


2 [Fr 1 十 Fh 


如 果 所 有 子 区 间 的 长 度 相 同 ,都 为 Az, 那么 上 式 简化 为 
HELLACz0) + Fz] + /ri) + /ra)) + [ F(x) + Fltxa)] 十 "+ 
[Fr 1) 本 由 


[Jo) 人 


tf[x _|]= Sinfx]; 
a=0; b=n/2; n= 100; 
Ax= [b - aj/n: 


x[i _ |=a+ i Ax: 


approximation = Ms[ e[a + 2 NE[xri]] + f[b]|//N 


0 .机 伟人 委 9 7 人 9 
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可 题解 答 


2.21 分 别 便 用 下 述 方 法 计算 f(z)=x In 在 区 问 [1,，2」 上 的 柳 曼 和， 


9,22 


(a} 每 个 子 区 间 的 看 端点 ; 
(b) 每 个 于 区 阿 的 石生 点; 
Ce) 每 个 子 区 间 的 中 点 . 
并 把 绑 术 二 Mathematica 的 捞 似 值 情 一 对 比 ， 
解 于 
flx_]=xLog[x]; 
a=1; b=2; 


3 

| fix| ax//N 

0 ,635294 < 一 Niathernatica 电 近 似 基 果 . 
n= 100: 

Ax=[(b ~ a)/n; 


xstar[i |=a + {i-1)Ax, 


3 tf[xstar[i|]Ax//N 


lw1 


D0.629369 一 左 剖 点 . 
xstar[i l=a+ i Ax; 

2, tlxstar[i]]Ax//N 

ml 

0 .643232 < 石 端 操 . 
xstar[i |]=a+ (iT .5) Ax; 
2 Elxstar[i] |Ax//N 

4 


0.636291 一 中 点 . 


对 于 区 间 [0, 1] 上 的 函数 f(x) = x”, 计算 它 对 于 n=2, 4, 8, 16 
的 黎 曼 上 和 与 ~ 和 .并 用 积分 | ?dz 解释 近似 的 效果 

解 EE 

f[x_| = x! 

a=0;b=1; 

n= 2"; 

Ax= [b - a}/n; 

nn = PaddedForm[n, 10|; 


templ = PaddedForm [| > fla+ [i- 1) Ax]Ax |， {8,6) |; 


temp2 = paddedFora| N| 5 flat iAx ]Ax |， 18,61 |; 


1st = TablLel {mn, temp1, temp2|, lnm, 1, 20! |]; 
TableForm| 1]st, TableHeadings 一 


Hr oa 


|None, }!” n”, lower”, “ upper | | 


，…，22 个 子 区 间 


217 ， 


“2 


n 
2 
4 
8 
168 

32 

Bd 

128 

256 

512 
1024 
2040 
4096 
8192 
16384 
32768 
65536 
1310712 
202144 
S24288 
10d48516 


号 .23 


人 oo 


.125000 
.218750 
,213438 
. 302734d 
,317871 
. 32259582 
,329437 
, 331383 
. 332357 
.332845 
. 2333089 
. 33321] 
.333212 
333303 
:3331 晶 
. 2343326 
.333330 
.333331 
. 334442 
.433333 


wjarhemarica 控 用 指南 


-一 一 一 一 CC —— 


lower 


人 


Upper 


.©25000 
. 468750 
. 32398438 
. 265234 
349121 
. 341187 
337250 
.335289 
.333311 
, 333822 
.333578 
. 333455 
.了 了 33 
. 333364 
.333349 
. 333341 
. 323337 
.333335 
.333334 
. 了 了 了 了 和 


[ 


| 
mr # 村 大 时 , 上 和 增加 ,趋向 于 极限 173， 
同时 上 和 咸 小 ,也 超 上 四 于 概 纪 1753, 因为 


na | 1 
| Tr = 一 
0 了 


一 -一 . - —- 


利用 宰 形 法 则 计算 | ed 的 值 , 分别 使 用 10，50， 
给 出 的 近世 和 值 比 较 . 

解读 

f[x_j」= 了 xpfx ]; 

a=;b=1. 


100 个 子 区 间 , 并 与 Mathematica 


| ix] 团 XA 7 机 


1 ,46263 

Clear[n|; 

Ax= (tb - a)/n; 
xli |=at+ i *Ax: 
n= 10; 


一 工 


4 [f[a] + 2 > efx[i] + £[b]]// x 


approximation 


1.46717 
n= 50， 


approximation 


上 


-1 
Ax| ef[a] + 2 9) flxfi]+f[b]j7zA 
1 ,46283 
n= 100; 
, n-1 
approximation = A [a + 2 人 f[x[i]] + ELb]jl 7 


14=1 


1 .A462 


10 -1 


第 十 章 凶 元 答 积 分 和 运 伺 


含 导数 的 计算 


作 第 八 章 中 装 论 的 D,0 与 Derivative 命令 实际 上 是 用 来 计算 偏 导数 的 . 当然 , 如 果 在 函 
数 中 只 有 一 个 变量 , 那么 偏 导数 就 是 通 常 的 导数 . 位 是 如 果 有 两 个 或 多 个 变量 ,那么 在 计算 导 
数 时 ,除了 指定 的 变 址 外 , 其 它 变 二 都 认为 是 常数 

在 下 面 的 语法 描述 中 ,上 表示 多 元 函数 ， 


D[E，x] 或 Bf( 利 用 BasicInput 模板 输入 ) 给 出 3f/3x, 即 f 相应 十 变量 x 鸭 偏 导 数 . 
D[f，|x, n1] 或 6 wf 给 出 B'f/B3"x, 蛋 ff 相应 于 变量 x 的 n 阶 人 篇 导数 . 

PIE, x,, ¥ ,x | Or ,x ,xf 给 出 泄 侣 俩 导 笋 Of/ Dx Ox, DX. 

DIE fn 出 佩 导数 
Of| XXX 


,其 中 N+ Tn; + 加 十 n=nn. 
OX ORD ARE 


为 了 方便 起 见 , 在 偏 导 笋 符号 中 可 以 揪 入 不 中 凡 的 进 与 .搬入 方法 束 古 输入 三 史 厅 询 


[ESC] 


例 1 


例 2 


例 3 


+，+[TESC]. 不 可 见 逗号 的 作用 与 普通 喜 号 类 似 , 但 不 臣 示 出 来， 


Df xy z*, x)| 

Dx 2 

[wy zs) ”一 这 里 的 括号 非常 重要 ,为 什么 呢 ? 
Ix 

Dlx ye, lz, 21| 

.2x 2 

DO,, s(x 2°) 


Bx 2 


令 f(r, yj 二 z+ y’ ,十 面 的 指令 可 以 计算 了 -rm - 

Ef[x-，Y-] = 和 了 

Dif[x, yi, ix, 3!, {y, 4}] 

50400x 人 

Blz,3l， walELxY| 

50400x 人 

Derivative 全 令 也 可 以 用 来 构造 懈 导 数 . 令 设 ff 为 开 图 数 ,变量 为 Ts a hs 


Of[x, xX, , Ky | 
Derivative[n,, ns, "*, n; ][£] 给 出 偏 导 数 一 一 一人 一 一 一， 其 中 n+ 二 n = 
n. 


OKT: O27 OX 


f[x., ¥-] = xyY; 

gq = Derivative[3, 4][f£]; 

g[x, 了 ] 

50400x vr 

虽然 D 命令 可 以 用 来 计算 偏 导数 在 给 定 上 总 的 革 , 但 Derivative 命令 可 能 更 方便 一 些 . 


20 


例 4 


i100 , 于 


H0 ,之 


Mathematica 使 用 指 南 


令 f(r,y)= x sin y, 计算 在 (2,7) 点 广 ,的 值 . 
fixz_，Y-] = a 8Sinty]; 

Dif[x, y], x, y)/. {x 一 2， 了 -万 ] 

一 外 2 

Derivativep[1,1][£][2,x] 

一 工 之 


习题 解答 
计算 郴 数 fx，y)= ze 的 各 种 1 阶 偏 导数 与 2 阶 偏 导数 . 
静 # 
ELz-，Y- ]=x Exp[x y]; 
DLE[x，Y]，x] 


B+ exy 

Dlf[x, ¥], y] 

ex 

DIFLx, y], {x, 2|] 
20Yy+ esxy 


plf[Lx, y], fy, 21] 
ey x 
DLE[x, ¥], x, 了] 


2 eTKX+ eT x yy 


六 区 ，Y) 的 惕 导数 定义 为 如 下 极限 : 


_ 1 fxr+h,y)— flr,y) 
f(r, y) 一 lim 一 


h 
fx, y) = lm A 
利用 这 个 定义 计算 fz，y) = In(x?+ vy) 的 偏 导数 , 然后 再 利用 Mathematica 命令 也 
进行 验证 ， 
种 E 


f[x-, y¥-] = Loglx + 六]; 
Linit[e sy, h ->0] 
2 
3 十 
DLE[x, Yj]， x 
2 式 
2 


Linit[ {CY hj -xy 了 | - 2 fx 了 ] 
3¥ 
x+y 


plfLx, ¥], ¥] 


，h 一 0] 


10.,3 


了 由 ,在 
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3Y 
w+ 


3 
令 = = sz 计算 9 之 
四 计算 va 


钥 # 

z = Bxplxy)]; 

DLz，{x,，2]}, Yj 或 者 61,2 ye 
2 ETTy 十 er xy 


一 ,2 习 
验证 二 e-"* 是 灼 传 导 方程 2 =at 二 9 一 个 解 ， 
机 


解 本 

Clear|la, kK] 

u = Exp[l -a kt] Sin[xk x]， 
lhs = Dlu, t+] 


-a e attkiSin|kx)| 

rhs = a Du, |x,， 21] 
加 

-a etkisgin| kx) 

lhs == rhs 


True 


性 也 
三 元 函数 /x，y，<) 称 为 调和 夯 数 是 指 它 满足 拉 普 拉 其 方程 :也 + f+ 之 0， 
bs Yy 


人 Fa = 到 ' 计 算 它 的 re， fw 与 所 ,并 证 明 它 是 一 个 调和 函数 
解 上 
f[x., yz ] = 一 一 一 一 

Vetrte 


O22f Lx, ¥, 2]//Together 
2x” 一 一 了 

(x 十 天 十 z23342 

Oly,2flx, ¥, 2]//Together 
一 we? 十 一 了“ 

(K++) 

Olz,2]fLx, ¥s z|/ /Toogether 

一 区 一 人 22 

(x + + 2 

千言 第 十 名 第 + 第 / /Together 

D 


由 z= 了 f(x,y) 定义 的 曲面 在 {xo，yo，zo) 点 的 切 平面 方程 为 
二 zn 十 frt ro yo tr 一 Ir0) 十 fylxos yO)y 一 0 让， 


确定 抛物 面 z =10 一 zx“ 一 2y? 在 (1，2) 点 的 切 平面 方程 . 画 出 该 抛物 面 与 这 个 切 手 面 


viathematwa 使 几 指 笛 


时 图 形 ， 
钙 上 
f[x_,y_ ]=10-x -2y; 
z =f[1, 2] + Derivative[1,0][f|][1,2]{x-1) 
+ Derivative[0,1|[f|[1,2|ly- 2}//Expand 


19- 2x- By 切 半 向 方 程 为 z=19 -2r 一 8y. 

gl1 = Plot3D[f£[ x， Yj， | x， -3 5|， iy, -3 Sl DisplayFunction — Identity 
DisplayFunction 一 Identity] ; 使 得 图 形 寻 果 不 异 示 出 来 

g2 = Plot3D[z, {x, -5, 5|, {y, - 5, 5}, 【 见 第 四 章 )， 


DisplayFunction—* Identity |; 
Show [9g1, 9g2, ViewPoint 一 |2.330，-2.223，1.040]j， 
DisplayFunciton 一 $ DisplayFunction]; 


10.7 曲面 f(x，y，z) = 0 在 点 (xo，yYo，z0) 的 切 平 而 方程 为 
f(xos yor Zor 一 工 0 + fro yo OLY — yo + fro yo soz 一 zol — 0. 
加 出 球面 x* 二 y+ z*=14 与 它 在 点 (1，2, 3) 的 切 平面 的 图 形 . 
解 二 
球面 中 心 在 原点 ,半径 为 ”14. 它 的 方程 可 写 为 zz+ 昂 +-14=0. 我 们 可 以 用 图 形 
基本 单元 Sphere 构造 它 的 图 形 { 风 第 于 章 )， 
<< Graphics- Shapesgs- 
f[xz- ,TY-，z-] = z+ y+ -14 
gl = Graphics3D[Sphere[ v14, 20, 15]]; 
a = .Derivative[1, 0, 0][f1[1, 2, 3]: 
b = Derivative[0, 1, 0][f£][1i, 2, 3]; 
Derivative[0, 0, 1][£][1, 2, 3]; 
Solvelafxz-1) + bly—-2} + clz-3) == 0, 2z] 


eee) 


jl 


七 


a 三 Plot3D[ 3 {14 -x-29), |x， 一 -5 5j， 1Y， 一 9， 5 |， 


DisplayFunction 一 Identity] 
Show[gl，g2，DisplayEunction — $ DisplayFunction] 
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10.2 ” 极 大 值 与 极 小 值 


我 们 称 画 数 f(x，y) 在 点 (zo，y0) 达 到 局 部 (或 相对 ) 极 大 值 是 指 存在 以 (xo，y0) 为 中 心 
的 开 圆 蕉 , 对 于 其 中 所 有 点 (zx，y) 都 有 f(x，y) 太 f(xo，y0) 成 立 ,类 似 地 可 以 定义 局 部 极 小 
值 ( 不 等 式 反 号 ) .如 果 耻 在 (xo，yo) 点 达到 局 部 极 大 值 或 者 局 部 极 小 值 , 我 们 统称 了 在 (zu 
vp) 点 达到 局 部 极 值 ， 

对 于 可 微 函 数 了 而 言 , 了 在 (zo，3 加 ) 点 达到 局 部 极 值 的 必要 条 件 是 六 (xzo yo) = 
六 (xzoyyo)=0. 这 样 的 点 称 为 玖 数 了 的 临 拭 操 . 


例 5 为 了 求 出 FLz，y) = zx1+ yt 一 4zxy 的 临界 点 ,我 们 计算 它 的 一 阶 偏 导 数 ,然后 令 它 们 为 
零 ,再 求解 所 得 方程 组 . 
f[x_, vy ]=x +Yy -dxy; 
pdx = DLf[x, y¥], x] 
dx ~ dy 
pdy = DIf[x, ¥), Y] 
— dX + dw 
Solve[ {pdx ==0, pdy == 0), {x, y|] 
0 0 
{x -i yi|, |x>i, y= -it, Ix—™1, y—*1|, 
人 
Ix 1) YY 
因此 可 见 , 实 临 界 点 仅 有 《一 1，~1),(0, 0) 与 (1，1). 
不 配 的 是, 并 不 是 所 有 的 临界 点 都 必定 是 极 值 点 . 为 了 确定 在 一 个 临界 点 处 是 否 达 到 极 
值 , 并且 如 果 为 极 值 点 的 话 , 它 到 底 是 极 大 值 点 ,还 是 极 小 值 点 ,我 们 需要 利用 2 阶 仍 导 数 检 浏 
杀 件 ， 
令 DIz， y=fo(ry) fy(r y)-[fCr,y)] ,并 且 (xo，yo) 为 的 一 个 临界 太 ， 
1. 如 果 D(zo, yo)>0 并 且 f(xo，y0) 之 0, 那 么 (xo，y0) 点 为 了 的 局 部 极 太 值 点 . 
2. 如 果 Droyw)20 并 且 所 Cro，yo) 达 0, 那 么 (xo，yo) 点 为 了 的 局 部 极 小 值 尽 . 
3. 如 果 DDCxro，yo) <0, 那 么 { zp， yo) 点 既 不 是 『 的 局 部 极 太 信和 点 ,了 世 不 是 局 部 极 小 值 


“2 


例 54 


Mathematca 使 用 指 樟 


所 .我 们 称 (ro, y0) 为 站 的 鞍点 ， 


如 果 D(xo，yo)=0, 上 述 检 测 条 件 小 这 用 . 


继续 考虑 前 面 那 个 例子 .此 时 先 定义 五 (5，y).( 在 下 商 俩 用 符号 由 以 避免 与 Mathe- 
matira 永 导 傅 信 了 D 混 消 .) 

d[x_-，Y_-]=B ziE[xy]jalv zt[x,y]- (0, vE[x ¥]); 

d[ 0,0] 

— 16 一 负数 ,所 以 (0, 们 点 为 蒜 点 . 

d[1,1)} 

12 晶 

Bx, 2f[Lx, ¥)/. {x1, ¥*1| 


12 <(1，1) 点 为 局 部 破 大 值 起 . 
d[ -1，-1] 

128 

Gir flxy)/. [xz 一 -1 7Y 一 一 1 

12 一 [一 ]， 一 上 点 为 局 部 极 太 信 点 ， 


这 时 当然 值得 画 出 这 个 函数 的 图 形 , 以 说 明 上 上 述 结果 的 台 理 性 .利用 Mathematica 可 以 
很 容易 地 做 到 这 一 点 , 虽然 为 了 使 细节 更 清晰 , 有 时 可 能 需要 进行 几 次 试验 , 以 确定 所 
Plot3D [f[x,y], {fx, -2, 2}, ly, - 2, 2}, PlotRange 一 | - 2, 5}, 

ViewPoint —|1.761, -2.816, 0,647},PlotPoints —=30]; 


1 


Oy 


为 了 求 出 在 满足 条 件 gtz,y)=0 的 限制 下 f(z，y) 的 最 ( 极 ) 大 值 与 最 ( 极 ) 小 值 , 可 以 


利用 拉 格 天 日 桶 数 法 .从 几何 意 交 上 看 ,可 以 证 明 在 了 鸭 极 大 入 ( 极 小 值 ) 所 达到 的 点 上 ,的 
层次 曲线 与 g# 的 层次 曲线 具有 公共 切线 .在 该 点 上 , f 的 梯度 与 g 的 梯度 是 平行 的 , 即 YF(z， 
y)=AVg(x，y). 由 此 可 得 : 


f(r,y) = hgrtr, y), 
fr, y) = Agy(T, y). 


利用 这 两 个 方程 ,再 加 上 g(xz,y)=0,4 就 可 以 被 消去 ,并 可 以 求 出 确定 的 极 大 值 与 极 小 值 
所 对 应 的 xz 与 y 的 值 .下 面 的 例子 演示 了 这 个 步 红 . 


例 7 


假设 要 计算 在 满足 条 件 x* + y=4 的 前 提 下 , f(x， vy)=2x*+3y’ 的 最 大 值 与 最 小 什 . 
为 此 定 疼 g(x，y)=x*+y 一 4, 并 利用 下 述 步 又 消去 参 变 量 X. 
f[x-，Y-]=2x +3Y; glx-, y- J]=x +Y -4d; 

conditions = Eliminate[ {0.f[x,y)] == 》8.g[x,y]， 


第 十 齐 多 元 微 积 分 运算 


A 


OELx, Y] 一 一 89.g[x,yj]， g[x, yj = 二 0|,%] 


x == 4-Y EExy==088 Ay + Y¥ == 0 Bliainate[ 方 程 组 , 变量 ] 从 一 联 立 
pts = Solvel conditions] ,方程 组 中 清太 指定 的 生 且 . 


一 一 一 


| 
为 了 确定 了 的 最 大 从 与 最 小 值 ,我 们 计算 f 在 这 些 点 的 值 . 
functionvalues = flx,y)]/.pts 
8, 12, 12, 8! 
Max|[ functionvyalues | 
12 
Hin[functionvalues | 
拉 格 期 避 乘 数 法 可 以 推广 到 有 三 个 (或 多 个 ) 灾 其 的 卫 数 上 . 


例 8 为 了 求 出 医 数 f{x，y，z)= 2 在 满足 傈 件 .x*+2y*+3z*=6 的 前 提 下 的 最 太 值 与 最 
小 慎 , 我 们 定 头 g(x, yy 2)= x +2y +3zx:—6. 
f [x., ¥_, z_ |]=xvy2z; 
g[x_, YY-., 2 |=x +2y +32-6;: 
conditions = Eliminate[ {0.f[x,y,z|]== M0.g[x, y, z=]， 
DE [x, yz] == glx y, 21, 0.Flx, y,2] == dgLx, Y,z], 
glx.y, z] == 0}),%] 

==6— 2y — 32° && dy 2 == 2z(6 — 32°) 8& 

xf2 — 32°)==0 Ea xy -2+42)==0 gtx zt- 2+3z)==0 gE 
yz2(—2+32)==0 & 42- B82 +32 ==0 8 w+y( -3+3z)==0 
pts= Solvel conditions ] 


: |x—0, v0, z= ~ v2|, [x—0, y >0,z— — /2|, 


{x—0, v=0, zy2|, !x—>0, y—0, Zz—=y21, 
x0, Yy* 一 v3, 2—"01, |x—*0,y— -v3, Z 人 1 ， 
;开门 ， Y->V/3， 2z2—*0!, ix—0, yy3, z*0!, 


[ey 
i 一 一 和 一 | 一 — 一 一 -> | 二 | 

|x vy 1,z 31: lx vA 1,z 91 

一 12. [2 
{x V2, y*1, 2 — | , |x — v2, i 3 1 

r 
IX/2,Y -1,zZ* jt |x 2 3 | 
一 i2 

xy/2 v1, 7Z— ~ (3 1 1x>v2, vy]1, ZzZ— a 


| x -v6,y*0, Zz~*01, |x— 一 6, vy—0, z—0: 


x-> 6, 2 人 0 20|, |x—.6, yO0, z—0| 
functionvalues = f[x,y¥,z]/.pts 


0, 0, 0, 0; 0,0,0,0, 


2 2 2 2 
1 A 9 + ' ; 0, 0,0,0! 
/3 3 3 3 


in|l functionvalues | 


2 
3 


“2 


10 .8 


Mathematica 合用 指南 


Naz[ftunctionvalues] 


咏 _ 
| 


习题 解答 


求 出 函数 f(zx，y) = x* 一 y 的 所 有 相对 极 值 ,并 而 出 它 的 图 形 . 
解 上 

f[x., y_]=xw-y; 

Solve[ 19 E[x,yYj == 0,0,f|x, ¥] ==0], | x， Y|] 


| zx>0，Y>0 

d[x-，yY_-]=8l-ziffxy]alyzlElxyY] - 18,E[z,7]); 
d[0,0] 

| 


Plot3D[f£[x, vy], | x， -5 5|， {vy, 9 5}， 
BorRatios —*|1, 1, 1]， PlotPoints —25|]; 


10.9” 求 出 f(x， y)= zye-”-” 的 所 有 相对 级 值 点 ,并 面 出 它 的 图 形 . 


解 ”EF 

f[x., y-]=xyErpl-x -YY}]; 

pdx = Of[x, y¥]//Factor 

-er-x-z(-1+2x2)y 

pdy = Oflx, Y¥]//Factor 

ee 

如 果 这 时 就 用 Solve 求解 出 使 所 有 偏 导数 都 等 于 0 的 点 ,那么 会 得 到 一 条 出 错 傅 息 ， 
因为 在 方程 组 中 包含 了 { 非 代数 的 ) 指 数 . 然而 ,由 于 e-” -> 不 可 能 等 于 零 ,因此 我 们 
可 以 忽略 和 它 . 

Solve[ |[ -1+2m)y==0， x( -1+2y)==0}, {x, Y)) 


| 1 1 
一心 ， 门 } ， xc 二, 一 -去 | 
A i 


[一 -一 入 | 
人 
2 /2 


rT 一 


第 十 章 事 泡 微 积 分 运算 


et 


10.10 


d[x- ' | = 日 [xz >|ELx， Y]aiy 2flx, Y] 全 (3, | x， ¥])"; 


d[0,0] 

和 “一 亿 数 ,不 是 相对 极 值 . 

d[ - 1/v2, -1/2] 

a 

Ee 
LAW 
df -172 /2 

4 

它 

SR [x -1/V2,7 一 1/V2| 
© -| 过. 直 | 为 相对 极 小 人 点 
d[1/v2, -1/2] 

下 

ee {x "1/2,y — -1/21 
名 一方 ' 姑 | 为 相对 航 小 什 点 
d[1/v2, 1/Y2] 

a 


Os zflx, yy)/. fxr/ 2, y -12 


2 -| | 为 相对 极 大 值 点 . 


拒 们 用 两 个 视图 显示 这 个 函数 的 图 形 . 


Plot3D[f[x, y], {x, ~ 3, 3}, [y, - 3, 3}, PlotPoints +30, 
ViewPoint >{1.391, - 3.,001, 0,713}, FlotRange —»Al1], 

Plot3Dif[x, ¥], {x, -3, 3}, {y, -3, 3}, PlotPoints -30， 
ViewPoint 一 10.617，- 3.318, 0.245}, PlotRange >Al1]; 


利用 拉 格 郎 日 腾 数 法 求 出 在 图 x 十 ys -27r—4y= 0 上 离 P(4， 4) 最 开 二 上 最 远 的 点 . 
解 EF 


< Graphics™ InplicitPlot~ 
cire = ImplicitPlot[x +y -2x- 4y==0, |x, -5, 5} 


" 227 + 


Miathematica 使 用 指 南 


DisplayFunction 一 IdentitYy] ; 
p= Graphicsl [BozintSizel .02], Point[|4,4)]}]; 
Show[ circ, p, DisplayFunction — $ DisplayFunction |; 


f[x_ Y= x) + [Y¥~4)*; < 我 们 要 计 算 到 P 点 中 离 平 方 的 概 值 ， 
glx_, y-]=x +Y -2x-4y; 
conditions = Bliminate[ {0,f[x,y¥] ==\0.9[x, ¥], 
BE[xY] == hgLx, yl, gLx, y] == 0),%] 
2x== -d+3y kk ~ S2y+ 13y == -32 
PEs = Solvel conditions | 
' lx 二 (13-3 v65),Yy ~ 总 (13- /55)), 
[x 二 (13+3 V65),y > (13+ /55)) | 


vf[r, vy]/. pts //N | 根据 所 得 的 距离 , 吉 知 其 第 一 个 是 离 PP 


:5.84162, 1.36948) | 民运 光 扣 ,第 二 个 是 离 忆 匡 近 的 点 。 | 


10.11 求 出 球面 x*+ y+ z=1 上 离 (1, 2, 3) 点 最 近 与 最 交 的 点 . 
解 ”#3 
flx_, Y¥-; 2 1]=[x-1) +(y-2):+!zs-3). 
glx_ ,yy¥-,z-J=x +y¥ +o -1; 
conditions = Elininatel[ {Bflx,y,z] == 0,g[x, y,2], 
OElx,y, 2] == hglx, y,2) 0,f[x,y, 2] == MAD.g[ x y, 2] glx, v2] == 0),%)] 
3X == Zh dy == Zr && 14z 2 == 9 
pts = Solvel conditions, [|x, y, z|] 


上 1 [2 3 
-> 一 一 一 ， 一 ， - 一 一 二 上 秀 证 点 
| | ¥ 和 了 “ vl | 挟 示 
了 
1 -一 一 一 ， I 2 一 <。 一 最 过 点 
| yl1d LE v14 | 


yf[x, y, 2]/., pts//N 
|. T4166, 2.74166| 
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10.3 全 微分 


在 10.1 节 介 绍 的 命令 D 可 以 计算 多 元 函数 的 偏 导 数 , 在 微分 中 所 有 不 同 于 指定 变量 的 
其 它 变 量 都 认为 旦 常数 .如 果 了 为 一 个 函数 ,不 芒 假 设 它 是 二 元 函数 ,两 个 枉 量 分 别 为 z 与 y， 
但 yy 仍 是 x 的 函数 ,那么 D 就 会 给 出 不 正确 的 答案 . 

前 邻 了 t 返回 函数 的 全 微分 ， 

四 Dt[f[xy]] 给 出 函数 fx,y] 的 全 微分 ， 

加 Dt[fLx, yj, xj] 给 出 阵 数 f[x,yY] 相 对 于 这 其 x 的 全 微分 . 
当然 ,f 为 二 元 函数 或 更 多 元 孙 数 , 其 中 的 独立 演 基 可 以 必定 闵 f 的 任意 一 个 变量 , 在 上 面 的 
描述 中 用 x 表示. 


例 9 flx., y-]=xY; 
Dtif|lx,y|] 
2xwDt[x] + 3x :wDt[ vy| 
Dtif[lx, ¥), x] 
2xYy + 3x yDt[y, x]| 
Dt[flx,y], y] 
3x ty + xy Dt[xyy] 


如 果 = = f(x，y), 其 中 y 为 x 的 函数 ,那么 D[E[x,y],z] 给 出 3， 而 pt[f[xzy]，x] 给 出 和， 


例 10 假设 F(z，y) = x4ys, 其 中 = z3. 下 面 的 俞 令 序 列 给 出 不 正确 的 求 导 结果 ， 


实际 上 ,由 于 z= z ,所 以 dz/dx 应 等 二 19x. 
Dt[z,x]/, vx: 
19x. 
住 有 些 表达 式 中 , 用 字母 表示 的 般 数 可 能 会 导致 泥 清 .选项 Constants 可 以 告诉 Mathe- 
matica 把 一 个 特定 的 符号 看 作 常 数 处 理 ， 


* Constants 一 对 象 列表 使 得 所 有 出 现在 对 象 列表 中 的 符号 被 当知 常数 处 理 . 


例 11 Dt[x*, x] 


x = + Dt[n,x|Log[x | | 


Dt[x”, x, Constants ~—!nl| | 


一 工 十 
nx 1+:n 


习题 解答 
10.42 念 ==sinzyzr=ly=2.dz=Aar=0.03,dy=Ay=0.02. 计 算 dz 的 值 , 并 与 Az 的 
值 进行 比较 ， 
和 解 FE 


z=flx-., y- | = Sinlx vy]|; 
Az= flxt+ Ax,y+ Avy] -flx, vy]; 


. 229 ， 


“ HA) 


10 .13 


10.14 


10. 15 


Ee -一 - 1- 


Vathemalict 使 用 指南 


一 一 一 一 一 一 一 一 一 一 一- -一 一 一 一 一 一 一 一 一 一 一 -一 一 “一 -一 一 一- ”一 


Dt[z]/. {x—1, y=2, Dt[x —0.03, Dtly]-*0.02| 
-0.0332917 

Az/. {x1, y—2, Dt[xl—0.03, Dt[y]-—*0.02| 

一 站 ,0364571 


利用 微分 计算 @@' vy4.01 的 近似 值 , 并 确定 生计 值 的 相对 误差 . 

解 上 

FLx-，y- | = Exp[lx| Sqrt[ yl]; 

approximation = £[0, 4] +Dt[f[x, vy)}/. {x—0, y—2, Dt[x]—0.1, [ly]—0.01) 
2 .2025 

exactvalue = £[0.1, 4.01] 

2.2131 

percenterror = Abs| approximation-exactvalue |/exactvalue * 100; 

Print![ “The error is’, percenterror, “村 “| 


The error is 0.479103$ 


有 一 个 锡 杯 ,高 gem, 半径 为 2cm, 壁 厚 0.03cm, 顶 妆 与 撒 部 厚度 都 是 0.02cm, 利用 微 
分 近似 计算 构成 这 个 锡 杯 的 金属 总 体积 ， 


解 ft | 高 度 的 改变 是 顶部 与 底部 改变 的 总 和 | 
Y= nr h; 

ptivl/. ih 0, 5—2, Dt[hl—0.04, Dt[r]->0.03| 

3.51858 

金属 总 体积 约 为 3.52crmy . 


三 个 电阻 妖 的 岂 阻 分 别 海 RI，R; 与 Rs 欧姆 , 把 它们 并 联 息 来 ,那么 益 的 写 阻 等 效 
T | 欧姆 ,具体 地 党 , 如 果 三 个 电阻 器 的 电阻 分 别 为 20 欧姆 , 30 欧 组 和 


一 十 十 

R! R;, Ri 
50 欧姆 , 主 个 的 最 大 误差 分 别 为 535% ,2 多 和 19% ,把 它们 并 联 起 来 ,那么 组 合 后 电阻 的 
变 届 范围 是 多少 ? 


解 上 


f[R1i., FR2_, R3_.]= 


Dt[f[R1, R2, R3] 
_Dt[R1]_ DtlR2] pt[B3] 
_ Ri R27 R3’ 
,2 
rib 
f| 20, 30, 5OI//N 
9 ,67342 
Dt[f[R1, R2, R3]]/. {Rl 一 20，R2 一 30，R3 一 50， 
Dt[R1]-*1.0, Dt[R2]->0.6, Dt[R3]-—0.5| 
0.315297 


第 十 草 者 元 微 根 分 运算 


”GC 一 一” 一 一 -一 一 一 一 


站 的 电阻 范 出 为 9.67742+0.315297 次 姆 . 
10.4 多重 积分 


多 重 积分 , 成 者 更 准 册 地 说 为 里 复 积 分 ,可 以 州 Integrate 命 今 实现 , 这 实际 上 是 一 元 各 
分 命令 的 推广 . 
加 Integrate [f [xz， yj]，|x，xmin，xmaxrj，|Y，Ymin，Yyamaz|] 计算 双重 积分 


NN 
| | fr ydydr. 


Integrate[f{[x, y, 2], {x, xnin, xmax|, {y, ynin, ynax|, |z， znin，zmax| ] 计 和 外 一 
重 称 分 ey zj dzd ytx . 
类 位 弛 ,可 以 计算 下 高 阶 的 重 积 分 .注意 在 Integrate 中 最 右边 的 变量 , 是 最 先 被 计算 的 
积分 变量 
另外 , 也 可 以 重复 使 用 BasicInput 模板 上 的 积分 符号 进行 重 积分 计算 ， 


例 12 为 了 计算 积分 [fe + yjdydr, 输入 


Integratelx + ¥, {x, 1, 2}, {y, 1, x}} 
EE! 


2 


显然 ,如 果 灾 换 积 分 变 世 的 岩 关 ,就 会 得 到 完全 错误 的 笠 案 ， 
integrate[x + y, Jy, 1, x}, {x, 1, 2}] 


x 
一 十 : 站 十 兰 - 
< 2 2 


如 杂 为 了 模拟 标准 的 数学 记号 ,那么 可 以 异 助 于 Basicinput 模板. 
| | 站 了 dvdax 
1 .1 


3 
之 


例 13 为 了 计算 二 重 积分 | 人 | zszdsdydr , 我们 可 以 采用 下面 两 种 方法 
Integrate[lx y z，jx，0，2|，{Y， 0, x|, {z, 0, x7Y] 
4 


或 者 
JJ je 


4 


如 果 无 法 给 出 所 要 计算 积分 的 准确 值 ,那么 可 以 进行 数值 积分 . 
对。 Nintegrate [f [x, ¥]， |x， xnin,，xnaxs|j，{Yy， yrin，ymaxj] 给 出 二 剖 积 分 


[yes yjayar 的 数值 近 外 


YInin 


医 Ninteqrate[f[x, Y z]， {x, M1N, Xx 上 Vx |} ， | Y， Ymin, YK | ， {z, 丈 生 nn， zmaK} | 给 出 


| TT TT 


| f(x ，y,)dzxdydx 的 数值 近似 . 


tN FL 


可 以 类 似 地 计算 高 阶 重 积分 的 数值 近似 . 如 果 使 用 的 是 BasicInput 柑 椒 ,那么 可 以 使 用 
N 节令 (或 者 在 积分 式 的 右边 加 上 /AR 以 得 到 数值 近似 ,适用 于 一 元 明 数 的 NIntegrate 命令 


" 31 - 


3 


Mathemarita 性 用 指 上 过 


的 所 有 选项 , 部 可 以 用 在 多 重 积 分 中 。. 


例 14 


10.16 


10.17 


Integrate[Explx YY ], {x, 0, 1}, {y, 0, 11] 


1 ! Erfi[x] 
| rfilx| 


2 人 亚 


NIntegrate[Exp[z YY ], (x, 0，1+j，{7，0，11] 
1 ,1351 


| | me 本 天/ 7 于 


1.1351 
习题 解答 


利用 二 重 积分 计算 由 抛物 线 y = x? 一 2zx +2 与 直线 y= x +1 围 成 区 域 的 面积 . 
解 8 

f[x.]=x- 2x+2; 

yg[x- ]=x+1; 

Plot[|E[x , glxz]}, {x, -1, 3}]: 
intersections = Solve[f[x] == glx|| 
| ls AR ey 
1 二 03 5) 1), {x (3+y5))| 
a= intersections[[1,1,2]1]; 

b= intersections[[2,1,2]}; 

站 六 yar 

a f[x] 


5 v5 
6 


全 积分 朋 画 出 上 所 考虑 区 战 的 茧 
此 ,和 不失为 个 好 主意 . 


-I | 了 

给 定 由 抛物 线 y=9- 与 了 x 轴 围 成 的 幕 板 , 假设 其 中 每 点 的 密 订 正比 其 到 x 加 的 
距离 , 在 此 茶 件 下 求 志 它 的 质心 位 置 . 

解 REF 

用 尺 表 示 由 yw=59=- x 与 x 轴 围 成 的 区 域 . 


Plot[9 - x’, {x, -3, 3}1]: 


外 物 线 的 图 形 交 x 轴 于 一 3 与 3 两 点 , 则 薄板 的 质心 染 标 为 (%,5) = | 2 Ms | ,其 
中 


S 


10 .18 


第 十 童 多 元 微 积 分 运算 
MM = 相对 于 Y 轴 的 力 算 一 De, yj)dA, 
AT = 相对 于 x 轴 的 力 秆 -: ||yp(z, yda, 
MM = 薄板 的 质 址 一 [etx, yaa, 
plx-, y-] = ky; 


w= pty we 


计算 阴影 部 分 的 面积 . 这 时 所 给 出 的 曲线 为 阿 基 米 德 螺 线 , 其 极 坐标 方程 为 = 8. 显 
示 图 形 相 应 十 0 所 8 所 6m. 


解 # 王 


已 知 由 极 仅 标 方程 界定 的 区 域 R 的 面积 为 中 rarae 给 定 阴 影 部 分 小 弧 的 方程 为 


r=D2rs0sS727, 和 出 大 弧 的 方程 为 x =86+2x,2x 扩 9 所 5/2r. 因 此 它们 所 包围 的 区 
m2 ri+2n 
域 面积 为 [ 「 rdrde. 


2 
55T/ 业 让 生 十 忆 开 
| I 和 虹 虽 
LH 


之 再 


" 214， 


， 234 . Mathematica 司 用 指责 


13m 
4 


10.19 ”计算 位 于 地 物 面 z= x* + oy 的 下 面 ,在 zx 一» 平面 上 册 y=x 与 y=vz+1l 围 成 区 
域 的 上 面 的 立体 的 体积 . 
解 时 


若 给 定 立体 由 曲面 z= f(xz，y) 及 x-y 平面 围 成, 在 区 域 R 的 上 面 , 则 其 体积 为 
上 f(x,y)a4. 为 此 ,我 们 首先 查看 一 下 R 的 图 形 


Plot[ |x, vx+1|, {x, -1, 2}11; 


-1 -0 .5 总 .与 1 1.5 2 

下 面 计 算 葡 总 ,由 于 解 的 性 质 比 较 复 杂 , 因此 我 们 使 用 它 的 数值 近似 ， 
NSclvefxz == vx+1] 

{x1 ,22074|， ix -0.724492|| 

现在 可 以 把 盾 求 体积 表 孙 为 二 重 积分 .下 面 给 出 两 种 解法 . 


1.22074 pvxtl 
| | (w+)aydn// 


一 .了 欠 吉 六 9 和 2 
1.11738 
NIntegrate[x 2 + y°2, {x, -0.724492, 1,22074), [y, x*“2， Sqrt[x+1]|] 
1.11738 
10.20 计算 在 半球 面 z =4 一 x* 一 y 的 下 面 ， Xx-y 平面 上 由 心脏 线 y=1 一 cos8 围 成 区 域 的 上 
面 的 立体 的 体积 
解 演 


面 把 问题 转化 到 柱 面 坐标 系 中 .由 于 "= zz + 交 , 所 以 半球 面 的 方程 变 为 = 一 4- 


一 一 


王 .积分 区 域 就 是 由 如 下 所 示 的 心 驻 线 围 成 的 . 

< Graphics- Graphiecs~ 

PolarPlotll - Cos[8], 18,0, 2x}]; 

体积 V = | (4-2)dA = [a — ra)rdrd0. 


必 
2m mL-Cos[ 丰 ] 
| | {4- ri)rdrag 
必 必 


bl 
16 


10.21 求 出 位 十 抛物 面 z= x“+y’ 的 下 面 , x-y 平面 的 上 面 ,但 包含 在 圆柱 面 (x 一 1)?+y? 
=1 的 内 部 的 立体 的 体积 . 
解 8 于 
Cz 一 1)*+y =1 是 半径 为 1 的 圆柱 面 ,其 轴线 是 把 = 轴 按 向 量 (1, 0，0) 进 行 平移 得 
到 的 . 
<< eraphics Shapes" 
sl = Graphics3D[ TranslateShape[Cylinder[1, 4, 30], {1, 0, 01]]; 
s2 = Plot3D[z +Y, {x, - 2,2}), {y, - 2,2), DisplayFunction 一 Identity]; 
Show [sl1l, s2, PlotRange —{0, 4|], ViewPoint >{1.217,， -3.125, 0.447}, 
DisplayFunction— $ DisplayFunction|: 


现在 我 们 知道 区 域 的 形状 , 我 们 还 必须 查看 它 在 x-y 平面 上 的 投影 
<< Graphics™ InplicitPlot-~ 
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3 


.一 一- 一 一 一 一 一 一 ” 


10 ,22 


10 .23 


viatbenmatica 个 用 指 二 


— 人 一 一 一 一 


ImplicitPlot[ [rz- 1) :+y == 1,|x, 0, 2|]; 

虽然 在 卢 角 坐标 系 中 也 可 必 解 决 这 个 问题 ,但 开 柱 面 尘 慰 系 中 怠 更 简单 .把 圆 的 方程 
沼 开 , 变 为 x*+ y= 二 2z, 它 侍 级 六 标 中 就 等 价 汪 -cos8. 当 8 从 一 xf2 变 到 /2 时 ， 
就 生成 了 整个 圆 册 . 擅 物 面 的 方程 x = .r*+ yr 这 为 =r*. 这 样 所 要 求 的 体积 可 以 表 
示 为 如 下 二 章 积 分 . 


ni Ces[f] 
| 长 了， 
-rx/2 本 由 


[时 


3 

2 

在 x-y 平面 中 区 域 丸 上 的 曲面 z= f(x，y) 的 面积 为 
| VF Cy) TAG +T1dA. 

由 此 公式 计算 半径 为 x 的 球面 的 表面 各 

解 于 


我 们 只 计算 在 第 一 卦 限 中 球面 的 考 调 积 ， 鳅 后 利用 对 称 性 可 知 乘 以 8 即 得 整个 球面 】 
的 表面 积 . 球面 的 方程 为 x*+y +x 二 a*， 从 中 解 出 zx， 得 到 六 rr，y) = >= 


一 -一 一 一 一 -一 一 一 -一 一 


f[z_，y-]= Ve -ry 
1+ (BE[x gj2+ (Of[x, y])*//Together 


也 
总 


由 于 球面 在 x 一 »y 平面 上 的 投影 是 圆心 在 原点 的 半径 为 & 的 图 ,因此 利用 柱 面 坐 标 就 
很 方便 ， 用 rr* 代 蓝 让 3 得 到 ， 


Ss ni2 [a 1 2 
| wl + (Bf [zx, yb) + (ofLr, ydA 一 s| | | 五 全- 一 rdrde， 
“ hn nD Ya 一 人 


民 


ra ra | a2 
e | | | 时 rr 可 有 
折 0 Yar 


2 
da TT 


由 锥 面 z=3 yx? + 与 六 球面 x? + y+ (zx 一 9)*=9 转 成“ 冰 湛 淋 锥 ", 计 算 它 的 体 
积 . 


解 #4 

所 要 计算 的 体积 可 以 用 三 重 积分 ll dV 表示 ,根据 赎 成 立体 的 曲面 性 质 , 利用 柱 面 
让 

华 标 解 岂 这 个 问题 是 非常 广 便 的 .首先 , 把 球面 力 程 恒 写 , 利用 x，y 表示 x 得 汉 ， 

Solvel x + y+ (rz—-9l:==9, 2 

| : zz 一 日 一 9- x 一 y | 1z_>9 十 9 -x : 

利用 第 二 个 解 (对 应 十 上 半球 面 ), 并 用 说 代替 z+ 守 , 这 栏 球 面 的 方程 蛮 为 >=91+ 

9 一 .下面 通 出 构成 立体 的 曲面 移 图 形 . 

< Graphics- ParametricPlot3D" 

cone = CylindricalPlot3D| 3r, {r, 0, 3}, 1O, vo, 27)， 


DisplayFunction -一 Identity] 
hemisphere = CylindricalPlot3D|9+ 号- r2 ， {tz，0，3 | ， 


锅 十 章 “” 多 邱 微 积分 关 算 


[0, 0, 2x),DisplayFunction 一 Identity] ; 


Show[| cone, hemisphere, DisplayFunction 一 $ DisplayFunction, Mxeg — Fal se, 
Boxed Fal se |; 


为 了 计算 立体 的 体积 ,我 们 注意 区 域 在 zx-y 平面 上 的 投影 为 一 个 圆 ,为 了 确定 它 的 半 
径 , 我 们 首先 计算 锥 面 与 球面 的 交 . 

Solve[3r == 9+ V9-r?] 

| |r—3t| 

因此 区 域 在 x-y 平面 上 的 投影 为 半径 等 于 3 的 圆 . 所 要 计算 的 体积 为 


和 天 证 关外 二 yr 
| | | ragazdrggp 
0 dO J 3r 


457n 


10.24 一 个 简 仓 由 zx-y 平面 上 的 半径 为 3 的 直 贺 柱 与 半径 为 $ 的 球面 构成 .计算 它 的 体积 . 


YE 员 

获 硬 a 
条 
ce 


解 ”EF 


这 时 仍然 在 柱 面 坐标 中 处 理 问题 是 最 简单 的 . 球 冠 的 方程 为 2 = y25 
< Graphics™ Shapes™ 


"3 


1 人 .25 


10 .20 
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Nathematice 使 放 指 南 


“< Graphics` ParanetricPlot3D" 
cyYlL = Graphics3D| Cylinder|3, 4, 30||]; 
cap = CylindricalPlot3D[ v25- r2, {r, 0, 3}, |t, 0, 2x), 
DisplayFunction 一 Identity ] ; 
Show[ cyl, cap, PlotRange —-|0, 5|, Boxed -Falgse, 
DisplayFunction — $ Displayfunction |; 


立体 的 投影 是 半径 为 3 的 圆 ,圆心 在 原点 , 所 以 


了 于 了 25-r 
VOLuUme = | | | rdrdr dd 
0 JoJt 
] 227 
3 


给 定 一 个 半径 为 a 的 实心 半 蒜 ,其 中 每 点 的 密 庆 正比 十 它 到 zx-y 平面 的 距离 .计算 它 
的 质心 位 置 . 
和 解 ff 滞 
质 让 的 坐标 (二 , 久 ， z ) 满 足 ， 

sx, yz)dy (7x, vy, 2)dV 由 zy, dV 
cry | 中 er， | sy ey 


OO 
| oc, yy, ZIdV Nols, av | or,y, ay 
> 


由 题 设 , 密度 函数 为 s(x+，y，z)= kz, 其 中 为 比例 常数 .显然 利用 球面 坐标 求解 这 
个 问题 是 最 方便 的 ， 
T= pangecosd, y = psinfcosd, xz = ocosg, 
x= psin[|$ lcos[ 0]; 
Y= psin[$ lsin[L 81; 
z= peos[]; 
二 Kz: 


magsg = 网 三 | ep?sin[$] dp dp dh 


车 二 


Task 
总 再 户型 
， | | xop’sinL$] ap ap a 
centerofmass = | 
[| Pama apepag | | [rop'sint lap apae| 
mass " mass | 
[0,0, 18| 


给 定 一 个 半径 为 a 的 实心 半球 ,其 中 每 点 的 密度 正比 证 它 到 底部 中 心 的 距离 .计算 这 
个 实体 经 = 轴 的 转动 惯量 . 
解 号 


关于 x 挎 的 转动 惯量 为 | [Btryyy sjotr,yv, rdV, 其 中 Sryvs) 表 示 点 


第 十 草 ”多 元 微 积 分 这 算 


OG 一 


Cx, yz) 到 转动 轴 的 距离 , g(x, yz} 表示 {z+，y，z) 点 处 的 密度 ,在 这 个 问题 中 ,我 
们 要 使 用 球面 坐标 系统 ， 
T = psingcosd,y = psingcosd,z = peosd. 
G(r yz) = vr + y = {psingeosd): + (CosingsinO ) = psing, 
glx ys) = yr + yy” + < = p. 
之 三 珊 之 本 
| | | esin[g])zp(pzsin[g]) ap ap a 


2a"n 
9 
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第 十 一 宣 党 微分 方程 


11.1 常 微分 方程 的 解析 解 


简单 地 说 , 常 微分 方程 就 是 用 于 表示 函数 及 其 一 个 或 多 个 导数 关系 的 力 程 .满足 微分 方 相 
的 哆 数 称 为 微分 方程 的 一 个 解 ， 
Mathematica 命令 DSolve 用 于 求解 微分 方程 , 同 代 数 战 音 超越 方程 - 拌 , 要 合用 双 等 导 
== 分 并 方程 的 两 过. 
加 ”DSolve[ 方 程 ，y[x]，x] 给 出 独立 变 昌 为 x 的 微分 方程 的 一 般 解 yfx]. 
疾 ”DSolve[ 方 程 ，y,，x] 给 出 微分 方程 的 一 般 解 y, 这 里 把 解 表 示 为 列表 内 的 纯粹 归 数 
( 见 附录 ).Replaceall (7 ?可 以 用 来 计算 解 的 值 . 另外 , 岂可 以 用 Part 或 者 [[ 从 列 
表 中 提取 解 ， 


例 1 为 了 求解 一 阶 微分 方程 全 = z+ w, 只 要 输入 


DSolve[y [x] ==x +yLx], ylLx], x] 
i lylxj— -1-x+ercl1]i| 


例 2 为 [ 几 纯 乏 函 数 表 孙 们 一 z +y 的 解 ,输入 
equation = DSolvely [x, ==x +Y¥/xl, Y¥,x| 
ly™( -lte*icli]— #1i8)!: 

如 上 果 需 要 计算 解 的 值 ,我 们 可 以 转 入 

y[xl/. equation 

| 一 工 一 区 + ee[1]| 

借助 于 纯粹 畏 数 ,我 们 也 可 以 计算 解 的 导数 , 而 如 时 使 用 的 是 例 1 中 形式 的 解 ,要 达到 
这 个 目的 , 际 非常 凡 烦 . 

vy [x]/. equation 

1—1+e*CE1]: 

我 们 可 妨 定 义 肾 数 f 用 来 表示 这 个 微分 方程 的 解 . 
f = equation[[1, 1, 2]] 

-1+€eric[1] -#18 

从 而 ,我 们 是 以 直 授 计算 f 或 首 其 导数 的 值 ， 

f[x] 

-1—x+e*cC|l| 

f°[x] 

— -+erCfil] 

f° [x) 

e* CE1] 


有 一 点 非常 重要 , 那 就 是 在 微分 方程 中 未 知 画 数 要 表示 成 YLx] ,而 不 能 只 用 YY. 英 似 地 , 它 
的 导数 要 表示 成 YY [xj,Y [x |] 等 等 ,下面 的 例 疗 演 沁 了 一 些 常 见 的 错 癌 . 


第 十 一 章 角 币 分 方 在 
例 3 DSolve[y [xj == x+y YX x] 


| “ 
1 fx] 一 到 txyt+ce[ll| | < Mathematira 认为 y 为 常数 ， 


i 
DSolvefy == 区 YY XX] 一 术 划 函数 用 基 导数 必须 用 y[x] 与 vy[x] 表 小 ， 
DSolve. :nvld: 
The description of the equations appears to be ambiguous or invalid. {方舟 昌 摘 
述 中 人 包含 齐 义 不 请 或 并 非 法 的 付 写 .) 
DSolve: :degqx: 
Supplied equaticns are not differential equations of the given functions. (所 
给 的 不 是 关于 给 定 辐 数 的 微分 方程 , ) 
DSolve[y == x + yy, y, x! 


没有 给 定 初 值 条 件 的 微分 方程 的 解 中 包含 一 个 任意 季 数 , 正 省 情况 下 用 Ci1]j] 表 未. 其 它 
的 常数 (相应 -本 高 阶 办 程 ) 用 ct12], tS[31,… 表 示 . 如 果 和 希望 用 不 同 的 记 导 表示 常数 ,以 使 用 
pSolveConstants 这 项 ， 


了 SolvetConstants ~>constantlabel, 指定 币 娄 用 记 导 constantlabel[11，can- 
startlabel[2],，… 表 示 ， 


例 4 DSolvely [x) == x+ ylx], ylx), x, DSolveConstants —nylabel | 
;ly[xl— -1—-x+emylabell1l}ii 
高 阶 微分 方程 也 可 以 类 似 求解 .导数 用 了 [x],y [xzx],y[xj… 表 示 , 罚 外 ,也 可 以 用 D,B 
或 者 Derivative 指定 导数. 


例 5 DSolve[¥ [x] + Y[xj == 0, ylxl, x! 

iivix]—C[2] Cosix] — Cc[1] Sinlx]!:i 

DSolve[lD[yY[x]，txy2i」 + ylx] == 0, YI， xj 

liy[xj—*Cl2| Cos[x] -CLII sinlzxl!! 

DSolve[ Ot, 21¥[x) + Y[xj == 0, ylx], x] 

| 1yfx|—"C[2] Cos{x) -= Cl1) Sin{x]!! 

DSolve[ Derivative[2][¥llxl, {x,2}i+y.x)]==0, y[xl, x 

ii1yLx]-~>Cl 2] Cosix] = CS[1] Sinlxj ii 

对 于 复杂 的 微分 方程 ,如 果 有 可 能 的 话 , Mathematica 就 会 用 待 吻 国 数 给 出 其 解答 ,如 呐 

Mathematica 无 法 求解 该 方程 , 它 就 会 返回 未 求解 的 方程 ,或 者 用 未 计算 出 来 的 积分 表示 方程 
的 解 .对 于 这 些 情 况 , 比较 适宜 的 方法 是 给 出 方程 的 数值 解 ( 见 第 11.2 市 ) 


2 k 
例 6 x2 CY 空 + (zx? 一 4)y=0 是 由 塞 耳 方 程 的 特殊 情形 , 它 的 解 可 以 用 第 一 类 


dx 
[BesselJ) 市 第 二 类 (ResselY) 内 奏 耳 隙 数 表示 . 
DSolve[ x  Y [zj + xy [Ex] + (x -4d)ylx, == 0, ylxl, x} 
,Jy[xl—BesselJ[2, x| Cl1] + BesselY[2,. x| ¢'21|| 


了 
例 7 d+ dy + 好 -0 是 一 个 Mathematica 不 能 求解 的 非 线性 微分 方程 


dx 
DSolvely [x] + ¥ [x] + Y[x] == 0, y¥[x], x] 
DSolvrely[x + y[x)] + vlx)’ == 0, ylx]j, x 


, 241 ， 


-242 : Mathematica 使 用 指南 


一 -一 - 一 


刀 桌 在 给 定 微 分 方 释 的 同时 ,也 给 出 六 > 的 值 ,以 及 有 时 也 给 出 它 的 导数 值 , 这 时 求解 y 
的 全 务 承 称 为 初 值 问题 ,微分 方程 汪 初 始 录 件 足 在 DSolve 命令 中 用 一 个 州 表 米 指定 的 . 如果 
给 出 的 初始 条 件数 目 足 够 , 郝 么 就 会 至 回 惟一 解 ， 


例 8 求解 微分 方程 = z + y 初始 条 件 为 y(0) = 2, 然后 给 出 解 的 图 形 ， 


equation = DSolvel {ly [zl == x+y[x], y[0] ==2), y[x], x] 
和 [了 | 
Plot[y[r]/,equation, [x, - 5, 2|]; 


下 垢 是 另外 一 种 要 画册 解 的 图 形 的 解法 . 

equation = DSolve[l {ly [x] == x+y[x], ¥[0] == 2|, y, x] 
| -1 + 3e!— #1 &)|| 

f = eqvuationl [1,1,2]] 

一 1 十 了 了 ef 一 拉 1 8 

Blot[fix]，|z，-5，21]; 


u 上 妇 本 


观察 一 阶 微分 方程 解 的 性 态 的 实 几 方法 是 引进 向 基 场 的 概念 ,在 Raz 中 向 量 场 就 是 一 个 函 
数 下, 三 每 及 (x，y) 上 都 赋 子 二 维 向 其 F(x，y) .通过 绘制 R? 中 向 量 F(x，w) 的 有 限 子 集 ， 
厂 可 以 对 下 的 性 态 有 -一 个 几何 了 解 . 
轩 PlotVectorField[ {Fz, Fy|, | x, xmin, xmazl}, |y, ymin, vmax| | 生成 二 维 | 可 基 场 匡 
数 F 的 问 景 场 图形 , 这 里 Fx, Fy 表示 了 的 丙 个 分 量 .在 向 组 场 中 点 (x，y) 处 箭头 的 方 
阿 束 是 该 处 回 基 的 方 问 .箭头 的 梯度 正比 于 向 基 场 的 梯度 


PletyectorField 包含 在 软件 包 Graphics~PlotField* 中 ,因此 在 使 用 前 要 上 载 这 个 软件 
世 . 


例 9 绘制 问 其 场 F(x,，y)= 一 间 +.z 的 图 形 . 在 上 默读 情况 下 ,下 面 出 坐标 轴 , 国 此 下 面 使 用 
了 选项 Mxes 一 Automatic. 


< Graphics* PlotField™ 


PlotVectorField[| - y, x}, {x, -5, 5}, {y, ~5, 5), Axes ~—»Automatic]}; 
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任何 的 一 阶 币 分 方程 部 可 以 四 头 一 个 n 量 场 . 仿 际 上 ,各 量 场 + f(x，y)] 对 应 于 微分 


方程 = f(x ,wv), 这 栏 就 生成 一 个 罩 量 场 , 其 中 的 向 量 相 切 十 该 点 的 解 曲 线 . 上 下面 给 出 的 这 
个 例子 , 虽然 比较 简单, 但 很 好 地 演 术 了 这 一 点 ， 


例 10 给 制 方程 =22 的 解 所 确定 的 癌 量 场 的 图 形 .方程 的 解 为 抛物 线 y= zx?+c, 这 一 点 
从 下 面 的 图 形 中 可 以 清楚 地 看 到 ， 
< Graphics™ ELotEield、 


PlotVectorField{ |1, 2x), {x, -1, 1}, {fy, “1, 1}, Axes —=Autonatic]: 


NNN 2 47 
aN // 
NE WY 
AAA os /ff 
WwW ~ 
SS 
NANANA、 
- 5 
AN、 NY 
NININ rr /pf 
RN vv f/f 
NNN rs tf 
RN -rr z+/ 
NN vv AH 


例 11 在 这 个 俩 了 中 我 们 绘制 方程 =27x + 的 癌 基 场 ,选项 HeadLength ->0 使 得 所 得 图 
形 显 得 更 清晰 .为 了 比较 ,我 们 在 同 基 场 中 画 出 初始 策 件 为 y(0) = 2， 1,0,1 与 2 
时 解 的 图 形 . 
<< Craphics" PlotField- 
vE = PlotVectorField[ {1, 2x + YY {x, -2, 1|, [y, ~- 4, 61, 


Axes —Automatic, HeadLength —0, AspectRatio —*1/GoldenRatio, 


例 12 


例 13 


kaihematica 使 用 指南 


一 OO 一 一 一 -一 一 


—— 


~ 及 上 ， 
加 
- -| - 
- 4F ， 
二 
-| 
-~ 2 
-2 "=.S°* 
站 -| - 
i 于 
人 


人 | 


一 一 四 吕 - - - 
-> 一 a 一 到 - 一 - - r 
~ 一 一 一 - - 一 - 
| | 
“1 5 - DT ”了 
= - +. +. 一 - - 
™ + 和 + 四 - + 一 一 


DisplayFunction —* $ DisplayPunction)]; 
sols = TablelDSolve[ ly [x] == 2x+ y[x], y[0] == ki, ylx],x], {k, - 2,2}]; 
iiiylxj— -2-2x:, ti:ylxl™ -2+e -2xl!, |iy[lx]— ~ 2+2e"— 2x|}, 
yx 2+3e ~ 2xl;, iiylxl——2+4e"—2x||| 
Do[ g[k|] = 
Plot[sols [k, 1, 1, 2]], {x, -2, 11, FilotRange 一 及 1 1， 
DisplayFunction -Identity |]， [kx, 1, 51] 
Showl yg[1], g[2}, gL3], gl4}, 9g[5], vf,Displayrunction —* $ DisplayFunction)]; 
微分 方程 组 是 由 x 个 人 第 分 方程 ,n+ 1 个 变量 构成 的 方 各 组 .利用 Mathematiea 求 能 微 
分 方程 组 的 过 程 与 求解 单个 微分 方程 是 类 似 的 .下 面 的 例 于 演示 了 如 何 求 解 微 分 方程 


组 和 =, 5 = 43 初始 条 件 为 x(0) =2,y(0) = 3 的 过 程 


solution = DSolveliz[t]==tYy[tj==t，xl[o0j==2,yY[0]==3j， 


{x[t], ylt]}, 可 
(x[t] (6+ ,YLE] -十 (12+t | 
在 给 定 初 始 茶 件 时 ,也 可 以 不 只 是 指定 子 在 某 一个 点 的 函数 值 以 及 导数 值 ,而 是 指定 
它 在 两 个 不 同 点 的 值 . 这 时 求解 微分 方程 的 问题 就 成 为 边 值 避 题 .然而 , 与 初 值 问题 不 


局 ( 它 对 一 大 基 情 形 痢 可 以 证 明 解 是 惟一 存在 的 ), 即使 对 于 最 简单 的 方程 , 边 值 问题 
也 可 能 没有 解 ， 


2 
考 碟 方程 他 + y=0, 边 值 条 件 为 y(0)=0, y(n)=1， 


DSolvel [¥ [lx] +y==0,7[0] ==0, yr] ==1|), y[x], x] 

对 十 同样 的 方程 , 如 杂 边 值 条 件 收 为 yt0)=0, y{w/2)=1, 那 么 就 存在 惟一 的 解 . 
DSolvef {y [x] +y==0, y[0] ==0, y[rx/2] ==1|, ylx], x] 

i iy[x]—Sin[x]|| 
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一 


可 题解 容 


求解 微分 方程 9Y = ry, 初 值 条 件 为 yt1)=2, 并 男 出 解 在 -2 所 xz 所 2 上 的 图 形 . 
解 # 
equation = DSolve[ {y [x}] == x ylx], ¥[1] ==2}, ylx],x] 


] 了 
{lvlx|] — 2e 2+2})} 
Plot[y[x]/,equation, {x, - 2, 2)|]; 


\ / 


"2 -1 1 2 


画 出 前 一 个 习题 中 微分 方程 所 定义 的 癌 量 场 的 图 形 ， 

解 上 

<<K Graphics™ PlotField-~ 

PlotVYectorField[ {1, x yl, {x, -2, 21, |y, -10, 10}, 
AspeactRatio —1/GoldenRatio, ScaleFactor —2, 
HeadLength —0.01, Axes —Autonatic]; 


~ / I 
\ \ \ ~ N ~ oo 了 一 “ “ / / 选项 Scalafactor 一 上 长度 对 向 
NR 县 进 行 放 缩 , 从 侧 使 最 长 向 量 
32~-- 人 -~ 7 的 长 度 达 到 指定 的 长 度 什 . 睦 
~ - 加 -一 - - ~ -一 人 认 基 汶 aatoaatic. 对 于 这 个 设 | 
” 7 了 7” 7 ~~~、 并 ,何其 长 虚 通 常 志 担 , 无法 看 
7 4 “二 2 - 、 、 、 、 、 沁 的 广 和 eerccst 轴 
94977 人 二 NN | 


.xd ， 

在 同一 幅 图 形 中 画 出 微分 方程 = x? + y 所 确定 的 向 量 场 以 及 初 值 条 件 为 ?(0) = 0， 
1,2,3,4 时 的 图 形 . 
解 # 
< Graphics™ PlotField~ 
vf = PlotYectorField[ {1, x +y), {x,0,1}, ly,0,12|, 

AspectRatio —*l/GoldenRatio, ScaleFactor —*0 .25, 

HeadLength —0.0, Axes >*Automatic, 

DisplayFunction —Identity |; 
sols = Table[DSolve[ {fy [x] ==x° + y[x], y[0] ==k}, ylx], x], |k, 0, 4})]; 
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11,4 


11.s 


Matbematwa 使 财 指 市 


Dolg[lk] = Plot[sols[[k, 1, 1, 2]], {x, 0, 1|)}, FlotRange 一 及 1]， 
DisplayFunction Identity|], {k, 1, 51] 
Show[g[1], g[2], g[3], g[4], g[5}, vf, DisplayFunction — $ DisplayFunction |; 
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所 谓 和 逃逸 速度 就 是 为 脱离 天 体 退 力 场 作用 ,而 给 物体 的 最 息 起 始 速 度 .计算 地 球 的 
解 E5 

我 们 可 以 假设 起 妨 速 度 必 济 地球 欧 和 直径 方 同 的 .根据 牛 蝶 运动 定律 ,粒子 的 如 速度 及 
比 于 着 于 到 地 球 中 心 距离 的 平方 . 如果 表示 这 个 距离 , R 表示 地 球 的 半 征 { 约 等 于 


3960 英里 ),v 表示 粒子 的 速度 , a 表示 粒子 的 加 速度 ,那么 “= 罕 = 亏 . 在 地 球 表面 
(7 一 民 ) 上 上 ,a= 一 g, 其 中 gg=32.16 ft/sec =0.00609 mi/sec’ .由 此 可 知 上 一 -8R7 ,所 


: - di dr ， . dr dvdr di 
一 ”一 一 “一 一 二 TT ! 二 i 二 二 TT 二 [ “~ E mm 


妇 
表示 逃逸 速度 , 就 得 到 丛 分 方程 v 电 = - 对 , 初 值 条 件 为 当 x=RR 时 v= of 
r 六 


DSolvel {v[rlv [r]== ~-gR/r, viR]== vw], vir], +] 


2 | 
2 人 9 | 志 扣 及 2 
te- 4 ~ <9R1 1 + vo : 1r[z] 一 | “9R+ + 


由 于 在 地 球 表面 (> = 尺 ) 上 速记 为 正 的 ,所 以 在 飞行 过 程 中 速度 部 必须 为 正 的 ,因此 上 去 
掉 第 一 个 解 .而 且 , my) 一 致 为 正当 且 仅 当 -2gR + 诏 六 0, 即 vo 这 v2gR. 

,2gR7.1g 一 0.00609， 良 一 3960 ] 

6.94498 

所 以 逃 移 速度 为 每 秒 6.94498 英里 . 


根据 午 顿 获 热 定律 ,物体 的 温度 改 恋 速度 下 北 于 物体 与 外 界 的 温 庶 莽 .如 时 物体 的 漫 
度 为 旭 世 , 放 伯 温度 为 20%; 的 环境 中 ,3 分 钟 后 明度 为 40fC , 清 问 6 分 钟 后 温度 是 多 
小 ? 

解 上 

用 w(i) 表 示 物 体 在 时 刻 4 的 温度 ,那么 所 = k(w -20). 初 值 条 件 为 ua(0) =70. 
DSolve[ {ou [t] == k(uft] -20), uf0] == 701}, ult], t] 
[uft.—20+ 50e""| 

ult- |] = 千 [La ]， 2 | | 

20 + Se 
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这 时 可 以 用 3 分钟 后 的 温度 来 确定 参数 & 的 值 .由 于 在 下 面 是 对 超越 肖 数 应 用 Solve 
菠 令 ,因此 尽 可 以 放心 地 忽略 所 给 出 的 警告 消息 . 

Selve[ua[3j == 40, k] 

Solve: :Iran: Inverse 上 unctions are being 


used by Solve, so some solutions may not be found. 


“上庄 于 Solve 使 用 了 反 函 数 求解 , 因此 可 能 有 的 解 设 有 找到 . ) 


Ha 


ul6]/. k— %[[1, 1, 2]] 
28 
6 分 钟 后 的 温度 为 28C. 


11.6 ”上 自由 落体 下 浅 的 加 玉 度 为 g, 近似 等 于 32,16 ft/sec? .如 果 要 考虑 空气 阻力 , 那么 运动 
的 性 态 就 会 发 生 巨大 改变 ,给 定 -个 物 栖 , 其 质量 为 5 斯 拉 烙 ,从 高 为 1000 英 尽 的 地 
方 落下 ,对 于 下 述 两 种 情况 , 确定 落 到 地 面 所 需要 的 时 间 .(a) 不 考虑 空气 阻力 ;fb) 想 
说 空气 阻力 等 平 物体 的 速度 . 
解读 


令 二 (表示 在 时 刻 + 时 物体 的 高 度 , w(t) 表 示 此 时 的 速度 ,a {1) 表 示 此 时 的 加 速度 
注意 到 vw(7) = (tf),a(1)= w(t)= 有 (1), 由 牛顿 定律 ,作用 到 物体 上 的 奸 力 总 和 等 
于 质量 乘 以 加 速 麻 , 即 : maft)= FF, 在 下 面 我 们 总 是 取向 上 为 正 向 . 
(a) 如 采 不 考虑 空气 阻力 ,那么 物体 所 受 的 力 只 有 重力 ,因此 ma (1)= -mg .两 边 同 

除 以 吉 , 求解 微分 廊 程 "(1) = -gg, 初 值 条 件 为 有 (0)=0,460)= 1000， 

9= 32.16; 

solution = DSolvel {i [t] == - g, h'[t] ==0, h[0] ==1000},h[t], t+]}; 

height[t. ] = solution[ [1,1,2]] 

1000, - 16.08t° 

当 物 体 到 达 地 面 时 ,高度 为 零 ， 

Solve[height[t] ==0, +] 

|1it— -7.886|, |t—7.886|! 

因此 到 达 地 面 花 费 的 时 间 为 7.886 种 . 
(tb) 如 此 要 考虑 至 所 阻力, 邦 么 作用 食物 体 上 的 外 力 除 重力 外 , 又 多 了 一 种 , 等 于 

mali) = mp — v(t) 
或 
mh 人) 一 一 meh (rt) 

初 值 条 件 与 (a) 中 相同 . 

n=5;9=32.16; 

solution = DSolve[ {nh [t] == -ng-h[t], hn [0] ==0, hol==1000]， 

hlt], +t]; 

height[t_ ] = solution! [1,1,2]] 

1804. ~ BO4.e "260.8t 

FindRoot [heightit] == 0, {t, 10}] 

| 上 ->10.62131 | 

现在 需要 花费 10.6213 秒 到 达 地 面 . 


kiathematica 使 用 指南 


EE 


11 ,从 


棒球 击 出 的 速度 为 100ftysec, 与 水 平 线 来 骨 为 307. 球拍 高地 面 3 英尺 ,忽略 空气 与 风 
力 的 上 蛆 力 , 请 问世 能 否 改 这 高 本 全 200 英尺 过 .35 英尺 高 的 围墙 ? 
解 下 


g= 32; h= 3;0 = 30 Degree; v= 100; 


一 
solution = DSolve[ {x [t+| == 个， vy [t| = 一 一 各; ， 了 区 = 32ft/isec ] 


x [0] == vo Cos[ 8], y [0] == vy, Sin[ #8], 
x[0] ==0, yl0] ==h}, {x[t], y[t]}, +]; 
horiz[t. ] = solution[ [1,1,2]] 
50 v3t 
vert[t. | = solution[ [1,2,2]] 
3+50 上 + 一 16 七 
ParametricPlot[ {horiz[t], vert[t]), {It, 0, 3.2}, MxesLabel —>|x, “y|]; 


Y 

40 

30 

20 

10 

0 m0 1 200 250 ~ <* 

Solve[horiz[t] == 200] 
只) 队 图 上 可 名, 当 = 200 时 , 尾 否 
3! 有 y 宇 35 很 成 本题, 因此 我 们 精 
vert[t]/. %//N 确 地 求解 出 球 到 达 围 墙 的 时 间 ，| 
133 .13671| 再 计算 这 时 球 所 在 的 高 度 . 


由 于 此 时 球 的 高 度 小 于 35 美 尺 ,因此 球 不 会 飞 过 围 玉 ， 


对 于 习题 11.7 中 的 棒球 , 以 哪个 能 度 击 出 ,可 使 得 它 飞 过 赎 墙 ? 

解 ” 睫 

首先 求 出 y 与 9 之 间 的 关系 

Clear| #8] 

y= 32; h=3; v= 100: 

solution = DSolve[ {x {t] ==0, ¥[t]== -g, x [0] ==v, Cos[f], 
Y [0] ==vo Sin[8], xL0] ==0, y¥[0] ==h}, {x[t], y[Lt]}, t] 
It 一 100t Sin[ 8], ylt] >3— 16t*+100t Sin[ 8]!: 

horiz[t. ] = solution[ [1, 1, 21]; 

vert[t_ |] = selution[[1,2,2]]; 


temp = SoLve[heriz[t] == 200, 七] < 求解 出 作为 0 酚 数 的 上 

11t—2 Sec[ 8]1| 

height[ 站 -| = vert[t]/, temp 一 定义 表示 高 度 的 上 8 的 陋 数 . 
113—64 Ses[?]*+200 Tan[#]i| 

NSolve[height[ 0 Degree] == 35,81 三 求 出 对 应 于 噩 度 为 35 英信 的 各 信 ， 


Solve: ;ifun: Irverse functions are 这 里 的 说 以 角度 为 单位 . 


[1 .9 


剃 十-: 齐 常 微 俘 方 王 :749 ， 


rr 一 


being used by Solve, so some solutions 
may not be found. ] 完全 可 忆 放 心地 乱 赔 这 条 警告 
(由 十 Solve 使 用 了 皮 末 数 求解 , 从 而 可 能 有 的 | 消息 
解 没 有 找到 . ) 
110 一 一 149.364|，19- -111.545', 19—30.6357!, 18—>68.4546|| 
这 里 负 值 8 可 以 不 子 考虑 .因此 只 有 当 人 介 丁 30.6367" 上 与 68.4546" 之 间 时 , 球 才能 飞 
过 芽 墙 .为 了 验证 这 -- 结 论 , 我 们 把 这 两 个 角度 对 应 的 轨迹 画 出 来 .在 下 图 中 的 坚 直线 
表示 离 本 全 200 英尺 外 的 35 英尺 高 的 围墙 . 


0 = 30.6357 Degqree': 

horiz[t_ |] = solution[[1, 1, 2]]: 

vert[t_] = solution[[1,2,2]]; 

graphl = ParametricPlot[ |horiz[t], vert[t]|}, {ft, 0, §}, 
DisplayFunction —1dentity |; 

= 6B.4546 Deygree; 

horiz[t.] = solution[ [1, 1, 21]:; 

vert[t.] = solution[[1,2,2|]|]; 

qraph2 = ParametricPlot[ |horiz[t], vert[ti}, it, 0, §}, 
DisplayFunction 一 Identity|]， 

gqraph3 = Graphics[Line[{{200, 0， 1200, 35|| ]j; 

Show[ graphl, graph2, graph3, PlotRange 一 | - SO0, 150}, 
AxesLabel —! x , YY}, DisplayFunction — $ DisplayFunction)], 


有 一 种 细菌 , 其 繁殖 速度 正比 寸 即 时 的 细 芋 总 数 .如果 从 某 时 刻 开始 , 一 天 后 有 50 个 
细菌 ,两 天 后 有 1 200 个 组 抱 , 郑 么 4 天 后 有 多 少 个 细 靖 ? 


解 “4 本 


这 时 所 满足 的 微分 方程 为 全 = AN ,其 中 N 为 某 时 刻 细菌 的 数目 ,& 为 题 设 中 所 确定 
的 比例 常数 . 初 值 条 件 是 当 上 =1 时 , N = 500. 

solution = DSolve[ jn [t] == knft], nt1] == 500|，n[t], t] 

;Jn[=] ~ 500e ?| 

population[t .1= solution[[1,1,2]]， 

Solve[ population|2|] == 1200, ¥k| 


141,10 


Tt Il 


REathetruatteca 全 用 指 啊 


Solve: ;ifun: Inverse functions are being used by Solve, so some solutions may 


not be found. 


《由 于 Solve 使 用 了 上 反 函 数 求解 ,从 而 可 能 有 的 解 没有 找到 .) 
lrgl 1) 

population[d]/. k —Log[12/5] 

89112 


在 一 个 由 电阻 与 电感 组 成 的 简单 电路 中 , 施加 电动 势 下 (电压 ) 那么 电流 了 遵从 方 
各 : 和 + RE= 忆 ,其 中 三 , 工 与 L 的 单位 分 别 为 伏特 , 安培 与 享 利 .如果 及 = 10 欧 


姆 , = 1 剖 利 ,来 用 交流 电源 ,方程 为 EE(z) = 10 sin St, 初始 电流 为 4 安培 , 求 出 在 时 
鹿 £ 时 电流 表达 式 ,并 男 出 前 3 种 的 电流 图 形 . 


饰 ”[ 王 

注意 不 能 用 EE 与 1 表示 电压 与 电流 . 

T=10; 1=1; elt. 1=10 Sin| 5t]; 

solution = DSolve[ {1 i [tl +r i[lt]==e[lt],i[0]== 4},i[t],t] 


1 l} - 
Niltl>- se (-22+2e "tCos[St] - de'"Sin[St])) 


Plot[solution[[1,1,2]], |t, 0, 3}]; 


弹簧 的 一 端 有 质量 为 m 的 物体 , 男 一 端 被 吊 挂 起 来 , 这 样 它 就 会 处 于 平衡 位 置 不 动 
如 果 把 物体 向 下 拖 离 平 衡 位 置 yo 距离 , 并 使 它 具 有 初速 度 wu, 那 么 它 的 运动 满足 微 
出 d 

分 方程 mr + a et ky 二 D0, y (0) = vo;y(0)= yo.a 是 由 于 摩擦 与 空气 阻 访 所 选 
成 的 阻尼 党 数 (由 实验 来 礁 定 ), 为 弹簧 遭 从 胡 克 定律 中 的 弹性 系数 【这 里 假设 向 
下 为 正 癌 .) 

一 个 质量 为 4 斯 拉 格 的 物体 固定 在 弹 得 的 一 端 ,弹簧 的 蝉 性 系数 此 为 6lb/ft. 物 
体 被 向 下 拖 敲 平衡 位 置 1ft, 然后 释放 . 假设 阻尼 常数 a = 1/2, 请 确定 物体 的 运动 广 
程 ,并 画 出 它 在 前 5 秒 的 运动 图 形 . 
解 上 
mm=1/4; yw =1; vo =0; a=1/2, k=6; 
solution = DSolve[imy[t]+a yt]+k ylt]==0,y10]== vo ¥[L0] == yo), 

TY[tj,t] 


| vitle-| Cos[ v23t]+ Sin[ V23t] | | | 
| y23 I 


Plot[solution[[1,1,2]], {t, 0, 5}]; 


11 .12 


11.13 


第 十 -: 齐 常 徽 外 方程 .251 - 


Ge 


截面 均匀 的 电线 被 固定 在 两 个 电线 杆 二 , 这 时 电线 就 会 下 牌 , 形 成 器 链 线 . 如 果 曲 线 
的 最 低 点 在 y 轴 上 ,与 原点 的 距离 为 yo, 那么 可 以 证 明 曲 线形 状 所 满足 的 微分 方程 


2 2 
罗 生 = 二 中 + | 全 | ，y(0)= yo,y (0)= 0 其 中 上 为 下 常数, 与 电线 的 物理 性 质 有 


关 . 讨 算 巧 链 线 的 方程 ,并 画 出 其 图 形 . 
解 


solution = DSolvel[ {y [x] == = yl+y[x], 


Y [0] == 0, y[0] == yo}, Yix], x] 
Solve::ifun: Inverse functions are being used by Solve, so some solutions may 


not be found. 


( 庄 于 Solve 使 用 了 反 函 数 求解 , 从 而 可 能 有 的 解 没 有 找到 . ) 
iylx]* -ata Cosh| < | + yo. vx] ata Cosh| < | + yol 
由 于 yo >0, 所 以 使 用 第 一 个 解 . 取 yo=a=1 以 画 它 的 图 形 . 
catenary[|x-. |」] = solution[[1,2]j/ .|a 一 1， yo -全 1 
Plot[ catenary[x)], {x, -1, 1]， 

Ticks —* {Autonatic, {0, 1, 211, PlotRange — {0, 211, 


人 口 增长 的 罗氏 方程 5 它 = ap -58p*: 是 由 生物 学 家 Pierre Verhulst 在 19 世纪 中 时 提 


出 的 .这 里 的 常数 58 相对 于 a 是 很 小 的 ,从 而 当 人 人 口 总 数 很 小 时 , 关于 户 的 二 次 项 可 
以 被 忽略 , 入口 总 数 近 似 于 指数 增长 .然而 当 入 日 总 数 很 多 时 , 二 次 项 就 会 起 作用 ,以 
减 侵 人 口 的 增长 速度 .对 于 4=2,5=0.005, 初始 大口 为 po=10T) 时 求解 出 逻辑 方 
程 ,并 确定 当 :一 ce 时 人 口 的 极限 . 

解 


solution = DSo}vel lp [t] ==a plt] -bplt]’,p[0)== po), pit],t) 


3 


wathemattca 个 放 指南 


| 引证 
lt || 
population[t_ | = solution[ [1,1,2]|, 
Plot[population[t]/. {po rli,a*2, b—.05], |t, 0, 5},PlotRange —All]; 
Limit[population[t]/. {po—1, a*2, b>.05}, t—m%] 
40. 


40 一 


2 

求解 边 信和 问题 :+ 2y =0,y(0) = (1)=0. 
小 

解 地 


DSolve[ |y [x}] + 4 y[x] == 0, y¥[0] ==0, y[1] ==0}), ylx], x] 
liy[x]— — c[1]sin[2rx]!| 


11,2 常 微分 方程 的 数值 解 


里 然 有 些微 分 方程 的 解 杆 以 用 初等 涪 数 表示 出 来 ,但 在 实际 问题 中 下 到 许多 微分 方程 的 
解 做 不 到 这 一 点 .即使 可 以 证 明 存在 惟一 的 解 ,但 也 只 可 能 给 出 解 的 数值 近似 .NDSolve 命令 
就 是 为 此 而 设计 的 . 
图 ”HDSolve|[ 方程 ，y，[x，xmin，xmax| ] 给 出 在 方程 中 定义 的 微分 方程 以 上 太初 始 篆 件 所 


确定 的 解 y 的 数值 近似, 其 握 独 立 变 量 x 满 足 其 四 工人 二 -XXXmSXX。 


由 于 NDSolve 给 出 的 是 微分 方程 或 者 微分 方程 组 的 一 个 数值 解 ,因此 为 了 保证 解 的 惟一 
性 ,必须 指定 适当 数目 的 初始 条 件 ， 


例 14 在 这 个 例子 中 考虑 微分 方程 = x?+ Vy, 初 值 条 件 为 y(0) = 1. 虽然 这 个 方程 有 惟 -- 


解 ， 全 这 个 解 不 能 用 DSolve 求解 山 它 的 初等 函数 表示 
DSolve[ | [x] ==x: + vy[x], y[01==1}, ytxj]， x| 
DSolvel ‘vy [x] == x + vY[x]， [Dj 一 一 1 | ， ¥Lx], x] 


这 时 我 们 只 能 给 出 这 个 方程 的 数值 近似 解 ,由 于 数值 方法 是 在 有 限 个 点 上 构造 近似 值 , 天 
此 Mathematica 对 近似 信 进 行 树 值 , 即 构造 -- 个 过 这 些 点 的 光滑 蛆 数 , 许 以 Interpolat- 
inggunction 对 象 的 形式 运 回 解 . 


例 15 temp= HDSolve[ fy [x] == w+ vy[], y[0] ==11, vy, |x, O, 1}] 


iY InterpolatingFunctionf 110., 1.:1, 过 >]| 
可 以 肝 这 个 表达 式 中 提取 真正 的 InterpolatingFunction 对 象 . 


第 十 - 和音 常 微 分 方程 


Co 


solution = temp[ [1,1,2]| 


InterpolatingFunction| :10., 1.||, 所] 
这 里 只 直接 显 水 出 InterpolatingFunction 对 象 的 定义 域 .其 它 要 束 则 用 < > 表示 . 如 果 要 查 
看 构造 中 所 用 的 数据 ,可 以 输入 命令 gullforml solution], 利用 这 种 擂 值 后 的 解 solution, 我 
们 可 以 计算 解 在 一 点 或 多 点 上 的 值 ,甚至 可 以 画册 它 的 图 形 . 然而 这 时 必须 小 心 处 理 , 保证 绘 
图 区 向 落 在 Inte*polatingEunction 的 定义 域内 ,否则 会 生成 一 条 警告 消息 . 

swlution[0.5} 


1. 


BOE43 


solution|1,1] 


Interpolat ingFunction; .dmval.: 


lnput value |1.1| lies outside the range of data in the interpolating func- 


tion, Extrapolation will he used. 


2. 


( 辆 入 包 i1.11 位 于 括 值 函数 中 数据 的 外 面 ,因此 使 用 了 外 插 力 法 .) 
89132 < 以 准确 度 二 来 看 ,外 插 得 到 的 数值 是 不 可 车 的. 


Table[ {x, solution[x]}, {x, 0, 1, ,1}1]//TableForm 


局 
请 让 


1. 

1 ,102B84 2,5 
1 .21273 2 .05 
1 .33181 2 
1] .46228 ] 5 
1 .6064d3 1 
1 .7663€ ] sc 
1 .94504 

> 14429 .2 他 .全 0.6 0.8 1 
2,30672 

.1479 


Plot[solution[x], {x, 0, 1 ]; 


虽然 对 绝 大 多 数 微分 方程 而 言 , 利 用 黑 认 设 曾 得 到 的 效果 都 很 好 , Mathematica 还 是 提供 
了 于 一些 选项 ,以 设置 相应 参数 , 处 理 某 些 反 篆 情形 . 


NorkingPrecision 指正 在 内 部 计算 中 所 用 的 有 效 数 字 位 数 . 缺 省 情形 下 , working- 
Precision 一 与 Machineprecision, 通 季 是 416 位 有 效 数 字 . 

PrecisionGoal 指定 在 量 作 管 案 中 的 精度 位 数 . 访 省 情形 下 , PrecisionGoal 一 
Rntcaatic 蕊 等 于 NorkingPrecision 一 10. 

hecuracyGoal 指 冠 准确 度 位 煞 ( 即 小 数 扣 右边 的 位 数 ). 缺 省 值 为 MeeuracyGoal 
一 Automatic, 蕊 年 于 WorkingPrecision 一 10.AceuracyGoal 的 信和 应 当 设 置 得 大 些 ， 
如 采 解 很 接近 和 替 , 就 要 把 它 设 为 Inf inity. 

MaxSteps 是 得 到 解 的 最 少 步 数 . 扇 省 值 为 MaxSteps 一 Automatic, 对 十 常 微分 方 
种 而 言 ,这 个 展 征 1000. 

MaxStepSize 指定 在 迁 代 中 每 一 步 的 最 大 尺寸 . 缺 省 值 为 HaxStepSize 一 Infini- 
七 了 ， 

StartingStepSsize 指定 起 奴 步 上 长. 缺 省 值 为 StartingStepSize 一 Rutomatict 由 
Mathematica 为 络 定 方程 目 动 驳 秆 最 住 的 步 长 . ) 


" 223“ 


MTarhematmra 恒 用 指 尊 
* InterpolationPrecision 设 沉 表示 解 的 InterpolatingFunction 对 兽 的 淮 硼 度 . 
扇 省 值 为 Interpolatingbrecision ->Automatic, 上 蕊 俩 用 WorkingPrecision 的 入. 


例 16 微分 方程 a+ y=0 在 初 值 条 件 为 y(0)=0,y {0)=1 时 有 人 惟 ~- 解 y= sin zx. 下 面 计 
算 它 在 0 所 zx 所 1000 时 的 数值 解 ， 
equation = NDSolvef iy [x] + ylx]}==0, y[0] ==0, y [0] ==1|,vy, {x, 0, 1000}1]. 
NDSolve; :mxst; Maximum mumoer of 1009 
steps reached at 七 he poirt x == 199.22439653359802 ~， 
《在 x== 199.22439653359802 `\ 点 时 为 了 得 到 解 ,迭代 超过 了 1000 步 .) 
117 一 InterpolatingFunctioni | 10.，199 .22411， 近 六 1] 有 
由 于 给 定 的 区 间 [0，10001 太 宽 , 在 这 个 区 间 上 为 了 得 到 解 , 必须 超过 1000 步 . 
equation = NDSolve[l {yy [x] +y[x] == 0, y[0] ==06, ¥ [0] ==1},y, {x, 0, 10001}, 
MaxSteps —1000 1 
| ly 一 InterpolatingFunction[ i :0., i000.1!, < ]I 
已 经 得 到 了 微分 方程 的 数值 解 , 我 们 下 面 检验 它 的 准确 性 .注意 准确 佣 在 * = 
(4 十 1) 忆 时 应 等 于 L. 
f= aquation[ [1,1,2]]; 
ELrZ2] 
D0 .9398997 
f[633n/2] 
0 .999407 


这 时 离 零 越 讶 , 误差 就 变 得 越 大 , 为 广 改变 准确 度 , 我 们 增 大 WorkingPrecision 
的 值 . 这 样 也 自 潮 增 大 了 了 PrecisioncGoal 与 AccuracyGoal 时 十. 
equation = NDSolve[{y [xj + ylx] == 0, y[0] == 0, ¥[0] == 1},y, {x, 0, 
10001, MaxSteps —1000, HorkingPrecision -20] 
Ir¥ ~ InterpolatingFunction[ {10, 1000.0000000000000000||, 之 >];! 
f2 = equation| {1,1,2]]; 
f2[ nx/2] 
日. 999099999993172465612 


1 1 - 加 
f2[633m72] | 这 时 的 计算 数值 解 命令 要 花费 径 长 时 间 ， 


1 .00O0000004055726494 
习题 解答 


11.15 分 别 用 DSolve 与 NDSolve 求解 微分 方程 人 =]+ pp y(0)= 1, 并 对 结 宁 司 一 比较 . 
解 ”Ek 
equationl = DSolve[ {|y [x] ==1i+ yx], ¥L0]==1}), y[x], x] 
| iy[x] 2Tan| | .5x + 2azcran| 二 | | 


solutionlfx_ 1= equationi[ [1,1,2|]]; 


11 .工人 


11 .17 


第 十 一 章 常 微 分 方程 ' 255 - 
equation2 = NDSolve[ ly [x] ==1+ zy¥[x]’, ¥[0] ==1|, y[x], {fx,0,1|] 
1 iy[x|—InterpolatingFunction[ 1}0., 1.{1, < |][x]!i 
solution2[x.] = equation2[[1,1,2]]; 
tabledata = Tablel [x, solutioni[x], solution2[x]}, {x, 0, 1, .11]: 
TableForm[tabledata, Tableleadings— |Hone, {x ,analytic’, “numerical ] 


x analytic numerical 

U ] 1 

0.1 1.15817 1.15811 

0.,2 1 .33582 1 .33583 

0 .3 1 .538395 1 .S538968 从 太 表 可 见 , 数 信 和 解 与 解析 艇 
0.4 1.77601 1 .77602 至 少 存 前 三 位 小 数 上 是 相同 
0.5 2.05935 2.05936 的 . 当 zx 离 0 越 来 越 远 时 ,误差 
0.6 2.40786 2.40788 变 得 越 来 赤 大 . 

Q.7 2,.85796 2.83199 

0D,8 ,4d406 3 .11 

0.9 4.28301 4.28309 

1 53.358016 3 .5B0341 

加 由 dy 1 ， 

加 出 微分 方 种 ++ +1 于 > 一 0,y(0)=1,y (0)=0 在 0<t<10 上 解 的 图 
形 . 

解 


solutionl = NDSelve[ | 入 [t] + {vy[t] + 1 
Y[0j == 0}, y[t], {t, 0, 10}] 

站 [二 — InterpolatingFunction 

[| 0.,10,.1|, 和 六] [上 
Plot[y[t]/.solutionl, {t, 0, 10}, PlotRange —All]; 


Y(t} + YLt == 0, YLO] ==1, 


之 
对 于 微分 方程 和 +0.3 这 +siny =0, 分 别 画 出 它 相 应 于 初 值 条 个 为 y (0)=1,y 
-十 


dx 
0) 二 一 2, 一 1,0,1,2 的 五 组 解 在 0x 所 30 上 的 图 形 . 
解 。EF 
Do[ 
| 301ution = 


HDSolve[ {y [x] + 0.3y [x] + Sin[y[x]] ==0, y[0] == i, 
Y [0] ==1}, y[x], {x, 0, 30}]; 


+ Mahematirs 全 用 指南 


f[x. |= solution||1,1.2|1|]; 

graph[i] = Plot[f[lx], ix,0,30}, Plotstyle "Hue[.21i + .5], DisplayFunction 
—»Identity|}, {i, -2, 2}] 

Show[Lgraphl - 2], graph[ - 11, graph[01, graph[1], graph[2], DisplayFunction 
— SDisplayFunction, PlotRange 一 及 1] |; 


' 实际 让 是 用 的 昌 色 
| CN 绘制 这 天 条 曲线 .| 
时 本 二 | Fo J sen 中 以 很 容声 地 
Wd : i - 区 分 并 己 们 . | 


| 7 
-2 1 


11.3 拉 普 拉 斯 变换 


本 节 我 们 讲述 一 种 求解 微分 方程 的 巧 砂 的 方法 . 昌 锥 这 里 讲解 的 过 程 适用 十 更 广泛 的 一 
类 问题 , 但 它 真正 的 能 力 就 在 于 能 求解 更 - 般 的 微分 方程 ,即使 方 稳 右 边 为 不 连续 情形 , 或 着 
右边 除了 在 很 小 区 则 上 值 很 大 外 , 其 余 点 都 为 零 .由 于 绝 大 多 数 的 这 类 问题 来 自 于 以 时 间 为 独 
立 变 基 的 场景 ,因此 道 常 就 把 y 以 及 其 导数 表示 成 : 的 函数 .我 们 下 面 只 是 启发 只 地 给 出 拉 普 
拉 斯 变换 满足 的 性 质 , 而 不 去 讨论 这 些 性 质 成 立 的 条 件 . 

如 果 了 为 定义 在 区 间 [0，o% ) 上 的 函数 ,Atz ) 的 拉 普 拉 斯 变换 定义 为 

CHFDE= | ear, 

其 之 所 以 非常 有 用 ,就 在 于 有 下 述 性 质 成 立 (不 如 证 明 )， 


| 1 | - 和 
Lill= Lisinht bri)! = 773 
[ltl= 汪 Ljcosh( bt)! = 二 
4 5 一 耻 
af 
£1l1};= i 为 止 整数 Lie sinh( bi)! = 7 
Dt! .- 中 一 一 3 
Lie = 一 Liercosht pr}! (Cap 
Lisin( bt)| = 7 53 LF =s LF - £00) 
Licos( bi)! = 33 LF =e LD)! sf{0) -. f° (0) 
Lesin(W)| = rs Liafti}l pgtt)i=a tif(i)l +b Llgtt). 
Lercos(t B= 一 一 一 一 如果 Fs)= 人 Ltn) i 那么 [le*f(1)|=F(s -a) 
(s—-a) +p 


在 Mathematica 中 调用 LaplaceTransforg 命令 就 可 以 计算 国 数 了 的 拉 普 扩 斯 变换 . 
加 LaplaceTransformn[f[ 变 量 1]， 变 量 1， 变 量 2] 计 算 独 立 变 基 为 变量 : 的 函数 了 f 的 扩 
普 拉 斯 变换 , 并 把 结果 表示 为 变 基 2 的 国 数 . 


例 17 


第 上 上- 章 常 微分 方程 


一 一 一 天 -一 一 一 一 一 一 


注 章 ”在 Rathentatica 及 小 < 中 ,IAplareTransform 以 此 本 车 让 面 对齐 到 的 Inverse- 
LaplaceTransform.Unitstep 上 | DiracYelta 命 信 都 世 含 征 内 术 中 ,而 在 版 村 3 中, 这些 傅 今 
包 音 玫 软 人 忻 包 如 LIculus- LaplaceTransform*“ 与 Calculus* DiracDelta- 中 . 训 玉 坊 洛 用 的 是 
版 本 3, 卉 么 在 使 用 这 些 命令 之 前 必须 上 载 相 应 软 位 包 ， 


一 -一 -一 一 一 一 CC- 一 一 一 一 一 1- 


下 述 命 令 的 结果 与 性 面 所 列 的 性 质 聊 合 . 
LaplaceTransform| Exp[2t| Sin[3t], t, s) 
3 
13- 4g+s’ 
LaplaceTransform[ Exp[2t|] Cos[ 3+], t, s] 
一 上 + 
13-4s+s” 
LaplaceTransform[a £f[t] + bg[t], t, s] 
a LaplaceTrarsfornm[lf[t|, t, s| + b LaplaceTransform[ gltl], 七 s] 
LaplaceTransform[f’ [t], t, sj 
一 下 [Dj +Ss LaplaceTransforml flt|, t, s| 
LaplaceTransform[f "Tt], t, s] 
-gf[0]+s’ LaplaceTransform[f[t], t,s]-£'[0| 


拉 痊 拉 斯 尝 换 的 能 力 来 源 于 它 建 并 了 了 2) 与 1 了 (i 之 间 的 一 -一 对 应 ,这 就 是 说 如 果 知 
和 追 了 工 | FF 那么 2) 征 惟 一 确定 的 .如 果 下 (5 = 芝 1F 那么 (1)=£-!1F(s) 4， 
上 ! 弥 为 反 拉 普 拉 斯 变换 . 

本 InverseLaplaceTrangsformn[F[ 变 量 1j]， 变 章 1， 变 量 2] 计 算 独 立 变 是 为 变革 1 的 国 


例 18 


数 下 的 反 拉 普 拉 斯 变换 , 把 结果 表示 为 变量 2 的 函数 . 


TInverseLaplaceTransforml[ 1 st] 


a 如 果 手 工 计算 反 伙 换 , 那么 要 对 分 母 进行 因 


各 


| 式 分 解 , 然后 把 分 式 转化 为 部 分 分 起 ,并 计算 
InverseLaplaceTransform| — ，8, 士 ] 其 中 每 一 项 的 友 变换 ,而 Mathematica 会 自动 
3 进行 这 些 运算 . 

oe “(et ~ Cos[y3t] -VSSin[V3t]) | 


下 面 这 个 例子 说 明了 拉 普 拉 斯 变换 是 如 何 应 用 于 简单 微分 方程 求解 的 . 


立 
例 19 求解 微分 方程 人 -3 9 + 23= ,360)=1,y(0) =2. 


自 先 计算 微分 方 得 两 边 的 拉 普 拉 斯 变换 ,这 可 以 在 一 步 内 就 完成 . 
equation= yy [t] -3Y Tt]+2ylt] == 七 2; 


temp = LaplaceTransform[ equation, t, s] 


3(s LaplaceTransform[y[t], t, sl]-Y0o)-sy0l=-Y[ol== 


然后 ,求解 在 满足 初 信条 件 时 拉 普 拉 斯 变换 的 表达 式 . 
temp2 = Solve[temp, LaplaceTranstorm[y[t],t,s]]/. {vy [0]->1, y[0] 21 


* 2537 ， 


.35 省 xfTathermata 使 用 指南 


| | 
| [TaplaceTransform| ylt|，, ts 一- 8 
现在 从 中 提取 ， 的 函数 . 
temp3 = temp2[[1,1,2|| 

2 


与 一 一 一 之 5 
=3 


2-3s+s’ 
最 三 ,i| 算 友和 拉 痛 拉 斯 变换 , 以 得 到 方程 的 解 . 
InverseLaplaceTransform|[ temn3, s, 七 ] 


1 
7 (7+4€" -3€e+6t+2t) 


止 如 在 本 市 开 妈 指出 的 那 评 , 拉 普 拉 斯 变 挽 是 求解 包含 不 连续 右边 项 的 微分 方程 的 理想 
工具 .天 侍 我 们 直入 Heaviside 图 数 ,也 称 为 阶 神 国 数 , 它 对 于 后 面 的 讲解 非常 有 用 . 
加 ”UintStep[x} 如 染 x<<0, 给 出 值 0, 如 果 x 节 0, 给 出 值 1 


我 们 和 在 这 里 用 wu( 志 表示 阶梯 函数 ,利用 这 个 葡 数 表示 分 段 定义 的 函数 相当 方便 ， 


_. , Tr， 如果 廊 之 1， 
例 20 面 册 玖 获 g(r)=1 ， 在 0<x<2 上 的 图 形 
"4 h -于 二 一 


glx_ ] = UnitSstep|i- xlx+ UnitStep[ x - 1]x’; 
Plotlg[x], ix, 0, 2}]; 


0.5 1 1.5 2 


容易 证 明 P i u(r -ce)| = —, 而 且 如 果 Ffs) = £1 (1) ,那么 Dlau(t -cf(r- 
cc)! =e SF(s). 这 些 性 质 使 得 可 以 很 方便 地 求解 包含 分 片 定义 函数 的 微分 方程 . 


. 中 
例 21 求解 微分 力 程 人 -3 yt) yy (0) =y (0) =0, 其 中 (1) - 


di 
中， 如 于 0 所 1 所 1， 
10， 如 果 “> 
由 于 宇和 0 ,所 以 gf1)=Unitstep[1-t]. 
temp = ZaplaceTYransform[Y [t] - 37 [t] + 2Y[t] == UnitStep[1 -t], t,s] 
2 saplaceTransform[ yit],t,s] +s’ LaplaceTransform[ vy[t], t, s]— 


计 画 出 解 在 0 所 :所 2 时 的 图 形 ， 


3 (3 LaplaceTransform| ylt],t,sj-y[0]-s yl0] -vy[0]== i-e 
有 


temp2 = Solve[ltemp, LaplaceTransform| y[t],t,s]]/. [fy [0]—0,y[0]—0! 


第 + 章 常 第 分 片 程 


l -Ee ”| 


Lapl T form t|, 七 , | | 
| 1LaplaceTransforml wy[t],t,s] yp 


temp3 = temp2[[1,1,2]] 
]—€ ° 
s(2— 3g+ ss) 
tf£[t_ j= InverseLaplaceTransform[temp3, s, 七 ] 


- (e~ et)’ UnitSstep[ 一 1 Tt +ezf 一 1+et)3 UnitSsteplt | 


2 2 


Plot[f[t], ft, 0, 2}] 


17.5 
15 
12.5 从 解 的 图 形 中 可 内 ,即使 方程 中 


包 寡 木 连 续 的 函数 , 解 岂 可 以 是 
连续 午 数 ， 


总 .与 1 1.5 之 


在 物理 学 亏 牛 物 学 中 ,经 常 明 到 一 类 微分 方 召 , 其 右边 项 FUr) 是 一 个 脉冲 函数 , 见 f(1) 
除了 在 很 小 的 时 间 区 局 内 取 正 值 外 , 其它 点 都 取 零 值 ， 
Dirac 的 8 函数 就 是 -个 理想 化 的 脉冲 淆 数 , 虽 然 从 传统 意义 上 看 ,这 并 不 是 一 个 真正 的 
画 数 ,但 亡 的 合理 性 是 建立 在 20 世纪 中 时 Laurent Schwartz 创立 的 广义 通 数 理论 上 的 .这 个 
网 煞 是 由 下 述 两 个 条 件 定义 的 ; 
(ft 一 t0) =0, 如 果 关 0; 


| Gtt— tn)dz = 1. 
由 定 儿 很 容易 得 到 结论 | fC()80 -to0)dt = f(t0). 由 此 可 知 当 志 守 0 时 , 18(t 一 10)1 -= 
ed = e " ,各 则 它 的 什 就 为 军 


加 DiracDelta[tj 给 出 满足 :天 0, 并 且 | 5(z)dt = 1 时 $8(1) = 0 的 Dirac 5 函数 
G(r). 


0 


例 22 | DiracDelta[t] at 


] 


| filtlDiracDpelta[t -a] dt 


f[al 


例 23 LaplaceTransform[DiracDelta[t -a|,t,s] 
€ 3 UnmitStep[a| 
LaplaceTransform[Diracbeltalt -3],t,s] < 出 于 Mathematica 不 知道 4 是 负 
3s 数 还 是 正 数 , 因此 在 拉 背 拉 斯 变 
LaplaceTransformlDirachelta[t + 3],+,s] 换 的 结 困 中 世 合 Unitstep[a]. 
0 


"239 * 


- 76) 。 Mathentatica 恒 用 指南 


出 二 已 经 知道 了 Dirac 困 数 的 拉 普 拉 斯 此 换 , 因此 我 们 可 以 按照 邱 例 19 中 描述 的 方法 
几乎 抑 全 相同 的 过 程 求解 包含 脉冲 两 数 的 微分 方 备 .下 面 这 个 例子 识 示 了 这 种 方法 


dt 
Equation = 于] -2y [t+Y[t] ==Diracpeltalt -1]; 


temp = LaplaceTransforam[equation, t, s| 


装 24 求 包 微分 方程 2 (1-1), vy(0)=y (0)=0 的 解 . 


LaplaceTransform[y[t],t,s]+ sLaplaceTransforml y[t],t,s] ~ 
2 {s LaplaceTransform[y[t],t,s}— v0l)- syl0| -vy[0]==e 
temp2 = Solve[tenmp, LaplaceTransform[y[tt], +, sj]/.iy [0]—0,y[0]—0} 


| LaplaceTransform| y[t |,t, so | 
temp3 = temp2[ [1,1,2]|]//Expand 

J 

(-1+s) 


solution[t. |] = InverseLaplaceTransform[ temp, s, t | 
eit+t(—-1+t) Unitstep[ —1+t] 
Plot[ solutien[t], it+, 0, 2}, PlotStyle — Thickness[ .01]]: 


必 


[| 


1.5 


| 


D0,s 


人 .3 1 1 ,> 加 


拉 痊 拉 斯 亚 找 也 可 以 用 来 式 解 微分 方程 组 ,方法 与 处 理 单 个 被 分 方程 时 类 似 , 只 是 这 时 要 
对 每 个 独立 变 直 定义 不 问 的 变换 .下 面 的 例子 演示 了 求解 由 两 个 一 阶 微分 方程 构成 的 方程 组 
的 步 又 , 目 然 可 以 推广 天 更 多 的 方 得 组 泌 及 更 霹 阶 的 情形 . 


dr 
a 
例 25 求解 彼 分 方程 组 1 ， 初 值 条 件 为 (0)=1,y(0)= 一 1 
9 十 a 二 
system= {x [t] +ylt]==t, 4x[tj+y[t]==0|; 
temp = LaplaceTransform|[ system, t, sl| 


1 


s LaplaceTransform[x[t], t, s|] + LaplaceTransftorm [ylt],t,s] -x[0] == ,4 


s 
LaplaceTransform[ xlt+]，t,sj +s LaplaceTransform[y[t].t,s|- vy[0]==0 
temp2 = Solve[temp, {LaplaceTransform[ x[t|, t, 8], 


LaplaceTransform[y[t],t, sl}]/. {x[0}—1, yi[0]— -1| 


[i -1—-s-s’ 
'Laplacelransform| xIlt|,t,si-* Te, 
| [Lap [tlt s] 
4+ ds +e || 
LaplaceTransformly tl,t,s| 


temp3a = temp2[|1,1,2|] 


第 十 一 对 常 微分 上 三 入 
”二 人 一 号 一 s” 
s(—4+s:) 
temp3b = temp2[ [1,2,2]] 
4S 二 SS 
sf 一 4+s-) 
InverSseLaplaceTransfozm[Ltenp3a，5， 七 ] 


(2+3e-*+7e) 


InverseLaplaceTransfornm| temp3b, s, 七 ] 


3e tt 7et 
4 4 


- ， 1 - 3 3e Ter 
所 以 方程 组 的 解 为 r= 一 2+3e 全 十 了 3 二 上 


十 七 


习题 解答 


11.18 求解 微分 方程 


= sint, 初 但 条 件 为 y(0)=0,y (0)=2 


媚 上 

eqtaation=Y [t] + vit]== Sin[lt]; 

temnmp = LaplaceTransform| eauation, t,s]| 

LaplaceTransform[ ylt],t,s] +s’ LaplaceTransform[ vy[+],t+,s]-— 


0] -ww[0]== 
syL0] -Yl 1 


temn2 = Solve[temn, ee t, sj]]/. ly [0]—2,y[01-—>0} 


]] 
|| ssaetstal 廿 ,S | 一 一 1 > + | 
temn3 = temn2[[1,1,2]|]; 


InverseLaplaceTransform|[ temp3, 8s, 七 ] 


> ( -tCoslt!l + 5 Sin[t]) 


2 
0.19 ”求解 微分 方程 59 宇 + 和 + y=e,y(0) 一 3,y (0)- 
和 解 ” 扩 


eguaticn=Y [t] +y[t]+ vt)==Exp[lt]; 
temp = LaplaceaTransfory[ equation, t, &]| 


LaplaceTransform[y[t],t, s] + s LaplaceTranstorm[y[t], t,s|] + Laplace- 


Transform[y[t],t,sj -yo -syl0)-y|l0)==— ] +a 


temp2 = Solve[ temp, LaplaceTransforml y[t}, t, s|]/.[y [0]—2, v0]—»3] 


5 | 
LaplaceTransform[ y[t],t, sj -C—O— | 


1+gs+g: 


temp3 = temp2[ [1,1,2]]; 


InverseLaplaceTransform| temp3, s, 七 ] 


“oa02 ， 


11 .20 


11.21 


也 
求解 微分 方程 < -2 gy 0)=y 0)=0, 其 中 g(1) = 


dr 
下， 如 果 0 过 上 扫 ]1， 一 一 
， 然后 画 出 解 在 0 所 +<<4 时 的 图 形 ， 
1*， 如 果 >1， 


解 EE 


equation= [tt] -2y [tj]+ yt] ==t UnitStep[1 ~- t] +t* UnitStep[t - 1]; 

temp = LaplaceTransforn|[equation, t, s] 

LaplaceTransform [y [t], t. s] + s: LaplaceTranssorm [了 [t], t, s] - 
2(s LarlaceTransformly[t}], t, s] -YL0)-syo-yr[ol== 


把 4 一 二 十 妈 一 铝 本 人 25 十 S) 
< Es 


temp2 = Solve[ temp, LaplaceTransform| y[t], 七 s]]/. {vy [0]—0, [0 一 0| 


| (LaplaceTranstorn v[t|,t, s] re (2+5+es) | 


如 从 不 展开 扩 普 拉 斯 变 


| (一 1+31 8 
换 的 结果 ,Mathematica 
temp3 = temp2[|1,1,2|]//Expand 
在 计算 反 变 换 时 会 遇 开 | 
2 1 人 


+ 一 一 一 一 一 一 十 一 一 一 一 一 i 麻烦 . | 
【一 1+S)s” 【1+8) 8 【一 1 十 号 1 J 


f[t. ] = InverseLaplaceTransform[temp3, s, t] 


| 1 / 
2+e( 2+t)+t+2 (6+4( 1+t) +(-1+t)) +e 1't( -4+t)|Unitstep 


[ -1+t]+(ite litt(t—- 3+t)+t)UnitStep[ ~ 1+t] 
P1Lot[E[t]， It， 0， 4) ] ; 


求解 微分 方程 组 4 < xr(0)= y(D})=0. 


| 
立 十 Ti- 1 Corr, 


解 “二 


systen = |x [tj] + yt] ==t Sinlt], x{tt)] + vy [t]==t Cos[t]}. 
temp = LaplaceTransform| syteg, t, s)] 


| sLaplaceTransform[x[lt],t+,s)+LaplaceTransform[ vy[t]},t,s|— x[0]== 


1 2 LaplaceTransform| x{t |,t,s|]t+ 
S 


11 .22 


s LaplaceTransform[y[t],t,s]-Y0O]== 一 一 -一 | 


temp2 = Solve, temp, {LaplaceTransformlx|t], t, s], 
LaplaceTransform[y[t], 七 sj 7 .1xL0 一 0，YLO 一 DO| 


| _ 1 
i | LaplaceTransform[ x[t] ,七 ,S| (Ite) (ite) 1 od) lI oy 
9 St —1+s’) 
LaplaceTransform[ y[t],t,s})— - its) 1 }. | 
— 马 1 
temp3a = temp2[[1,1,2]]; 
temp3b = temp2[[1,2,2]}; 


InverseLaplaceTransform[ temp3a, s, t+] 
(etter-2 sin[t]) 
InverseLaplaceTransform[temp3b, s, t| 


去 -Et—-eti+2Cos{it| +4t Sin[t1) 


所 以 微分 方程 组 的 解 为 r= + e' — 2sin ,y= +2 cost + di 


sin 上 ). 


在 一 个 由 电阻 与 电感 组 成 的 简单 电路 中 ,施加 电动 势 E( 电 压 ), 那么 电流 了 满足 方 


程 :上 9 + RI= 已 ,其 中 下 , 工 与 L- 的 单位 分 别 为 伏特 , 安 商 与 学 利 , 设 尺 = 10 欧姆 ,1 
=1 享 利 .如 盯 在 时 刻 :=0 施加 直流 电压 1 伏特,1 秒 后 关闭 ,请 画 出 在 前 2 秒 内 电 


流 的 图 形 . 

解 《到 

e[t. | = Unitstepl1 -七 ] ， 

Flot[e[lt], it, 0, 2), FlotStyle 一 Thickness[ ,01]]; 


l=1; r=10; 
equation = 1i[t]j+rilt]==elt]; 


temp = LaplaceTransform|[ eqation, t, 8] 


-i[0] + lOLaplaceTransform| i{t|], t,s] + slaplaceTransform[ i1{t|,t,s] 


1—-e 
s 
tenp2 = Solve[ltemp, LaplaceTransform[ i[t], 七 sll/.i[0]—0 


-s(-1+er)!| 


e 
| [LaplaceTransforn[i[t], t, 8] s(10+ 8) | 


temp3 = temp2[[1,1,2|]//Expand 


" 2263- 


2204， 


11 ,23 


valhematict 使 用 指南 


1 es 
s{loO+s) s(t1l0+s) 


f[t. | = InverseLaplaceTransform| temp3, s,t | 
1 -1Dt _1 -10.-]+t) : 一 ] 十 
1641 E ) iol 虽 JUnitStep[| 一 工 二 二] 


Plot[f[t], {t,0,2}, PiotStyle 一 Thickness[ .01]]: 


弹簧 的 一 端 有 质 基 为 请 的 质点 , 另 一 端 被 吊 挂 起 来 , 这 样 它 就 会 处 上 平衡 位 署 不 动 
如 巢 对 质点 浪 加 外 力 A(z) ,那么 质点 的 运动 避 从 方程 m 9 +a > + ky =0, ytD) 
=0, yi0)=0, 其 中 a 是 明 尼 常 数 ,& 为 弹簧 的 弹性 系数 .假设 站 =1 a=2, 让 =1， 
f(z) =e-“, 请 描述 弹簧 的 运动 情形 .然后 再 确定 在 一 秒 钟 后 加 上 41bsec 冲 量 后 的 弹 
筑 的 运动 情形 .在 同一 坐标 系 中 画 出 这 两 种 运动 的 图 形 


0.6: 
0.5| 
0.4 | 
0.3| 


0.2 


解 到 
m=1; =2;k=1: 
equation= my [tj+ay [t] + ky[t] == Exp[ ~ tj]; 没有 冲 量 . 
tenp = LaplaceTransform[equation, t, s], 
tenp2 = Solve[ltenp, LaplaceTransform[y{t], t, s]]/, {vy [0]—>0, y[0]—>0]; 
temp3 = temp2[[1,1,2|]//Expand; 
Print|[ “Solution Without Impulse [dashed}”] 
fl[t. | = InverseLaplaceTransform|[ temp3, s, 七] 
gl = Plot[f1[t], it,0,10}, PlotStyle -一 Dashing[| .011]， 
DisplayFunction 一 Identity |; 
equation =my [tl+ay [tl +k ylt]== Exp[ -t+t] +DirecDbelta[t-1] ;< 一 有 让 节 . 
temp = LaplaceTransform|[ equation, t+, s|; 
temp2 = Solve[ temp, LaplaceTransform[y[t], t, s]]/.{y[0]—>0, y[0]—0}: 
temp3 = temp2[|1,1,2]]//Expand; 
Print| Solution With Impulse [selid)] 
f2[t. ] = InverseLaplaceTransform[temp3, s,t| 


第 十 一 章 虎 币 分 方程 
g2 = Plot[f2[t], {t,0,10}, DisplayFunction -Identity] ; 
solution Without Impulset dashed) 
(没有 部 量 时 的 解 ( 扣 划 线 )) 
1 


一 已 一 te 
2 


Solution With Impulse( solid) 
(有 冲 量 时 的 解 ( 实 线 )} 
pi t+el-t(—-1+t} UnitSstep[—1+t| 


Show[g1, 9g2, DisplayFunction — $ DisplayFunction]; 


律 十 二 全 线性 代数 


12.1 向 量 与 矩阵 


辐 量 与 矩阵 在 Mathematica 中 是 用 列表 ( 见 第 二 章 中 的 介绍 ) 表 示 的 .所 谓 同 芋 就 是 向 单 
列表 , 而 算 阵 则 是 加 量 的 列表 

向 量 或 窍 阵 可 以 作为 列表 以 凶 工 方式 输入 其 中 的 毛 索 ,也 可 以 柔 用 内 置 命 令 更 方便 地 输 
和 人 其 中 的 元 架 ， 


向 量 
加 ”Table[ 表 达 式 ，|i, nj] 构 所 一 个 n 维 向 量 , 其 中 的 元 桶 由 表达 式 在 ; = 1，2，3， 
…，7 时 的 值 组 成 . 
副 ” Array[f,，n] 构造 一 个 n 维 向 量 , 其 中 的 元 素 分 别 为 f[1],f12],…,fln], 这 里 f 为 
一 元 函数 . 
看 阵 


| Table[ 表 这 式 ， |i, m), 1j; nj 构造 一 个 nL XA 阶 算 阵 , 其 中 的 元 素 由 圾 达 式 在 (7, 
二 人， 1 下， 《m,n} 时 人 的 值 组 成 . 

国 ”Rrray[f，im, ai] 构造 一 个 天 x nn 阶 知 阵 ,其 中 的 元 素 分 别 为 f[1,1},…',f[m,n]，, 
这 里 ff 为 二 元 函数 . 

图。 DiagonalMsattix[ 列 表 ] 生 成 一 个 对 和 角 和 矩阵 , 对 角 线 上 的 元 素 由 给 定 列 表 ( 一 - 维 列 表 ) 
中 的 元 素 构成 . 


加 ”IdentityMatrix[n| 创举 一 个 nw x 阶 单位 阵 . 


虽然 矩阵 是 作为 列表 而 创建 的 , 但 是 中 以 利用 MatrixForm 命令 拒 其 中 约 肉 容 显 示 为 矩阵 
形式 .以 方便 查看 . 
图 ”MatrixForm[ 到 表 ] 在 矩形 方 阵 中 显示 出 列表 中 的 元 素 . 如 果 列 表 只 是 一 维和 的 ,那么 
MatrjixForm 就 把 它 显 示 为 列 问 甚 { 即 作 为 nx x 1 阶 和 矩阵 ). 


在 列表 的 右边 输入 / /MatrixFornm 与 MatrixForm| 列表 ] 是 等 价 的 , 但 是 相 比 起 来 , 前 者 更 
方便 一 些 , 然 而 全 人 司 用 前 者 时 必须 和 仔细- - 些 , 注意 不 要 在 矩阵 的 定 六 中 便 用 /AMatrixForn 命 
令 . 只 有 为 了 以 短 阵 形式 显示 列表 中 的 站 案 时 ,可 需要 使 用 这 条 命令 ， 


例 1 m= 1, 11, {1,2)!; 


Dm/ /MatrixForm 
Wy 
1 2 


玉 四 , 算 泗 也 可 以 通过 这 单 便 今 Input 全 Create Table/Matrix/Palette( 伞 建 表 格 \ 下 阵 
或 模板 ) 来 输入 其 中 的 元 素 . 

通过 上 述 荣 单 全 令 , 吕 会 得 到 如 右 图 所 赤 的 网 格 .- -已 建立 起 这 样 的 网 格 ,就 可 以 在 其 中 
方便 地 输入 数字 ,并 可 以 使 用 他 键 从 一 个 空格 移 到 另 一 个 空格 中 .这 个 菜单 命令 提供 了 用 
0 和 1 境 充 乱 阵 的 选项 , 从 而 可 以 非常 方便 地 创建 稀疏 矩阵 . 


第 十 二 章 ”线性 代数 


国 贡 1 
[| 0D 口 
[| [0 0 


Maks: 
© Table (plain GridBow 


Number of [ows: FE 
Number of columns: E 


厂 Draw lines between rows 
矿 Drawlinss between columns 
厂 Draw frame 


Fwih hp 
厂 Filldiagonal: [ 


例 2 在 这 个 例子 中 创建 一 个 向 量 , 它 的 元 素 由 前 五 个 连续 正 整 数 的 平方 构成 . 为 此 不 妨 采 用 
直接 输入 的 方法 ， 
aquares = {1, 4, 9, 16, 25| 
1, 4, 9, 16, 25} 
然而 更 简便 的 方法 是 利用 Table 命令 或 者 Array 命令 . 
squares =Table[1:, {i, 5}] 
11, 4, 9, 16, 25} 
fli_] =1; 
squares = Array[f, 5] 
{11, 4, 9, 16, 25| 
如 淋 要 查看 这 个 向 量 的 内 容 , 可 以 输入 
MatrixForn| Squares | 或 者 squares //MatrixForm 


168 
25 


例 3 下 面 构造 一 个 7 x 5 阶 矩 阵 , 其 元 素 由 该 元 素 所 在 位 置 的 行 指标 与 列 指标 的 和 构成 . 例 
如 ,a23 = 三 5. 对 这 个 人 矩阵， 当然 可 以 利用 在 菜单 Input ~>Create Table /Natrix /Palette 
中 的 工具 直接 输入 它 的 元 素 ， 但 是 采用 一 个 标准 的 Mathematica 所 阵 刨 建 命令 可 能 会 更 
好 .下 面 是 刨 建 这 个 第 阵 的 两 种 方法 . 
natrix = Table[i+j, {i, 5}, {3,7}] 
[i2, 3, 4, 5, 6, 7, 8!, 13, 4, 5, §, 7, 8, 91, 
|4, 5, 6, 7, 8, 9, 101, |5, 6, 7, 8, 9, 10, 11}, 
16, 7, 8, 9, 10, 11, 12+!1 


Mathematica 仁 用 指 了 


fli-.,j.] =i+j 

natrix = Arravy[f, {5,7|] 

| 12, 3, 4, 5, 6, 7, 8}, 13, 4, 5, §, 7, 8, 9:, 
14, 5, 6, 7, 8, 9, 101}, |5, 6, 7, 8, 9, 10, 11|, 
16, 7, 8, 9, 10, 11, 12|| 

对 于 这 琴 种 方法 创建 的 数组 都 可 以 作为 矩阵 显示 出 来 ， 


natrix/ /MatrixFormn 
2 3 4 5 6 2 
3 4 5 6 7 8 
4 5 6 7 8 9 1410 
5 6 7 8 9 10 11 
6 7 8 9 10 11 12 


如 果 仔 细 地 使 用 [和 机 (更 第 三 章 中 对 Part 命令 的 介绍 ), 可 以 从 给 定 矩阵 中 构造 出 -个 
子 征 阵 . 下面 首 千 构 千 一 个 由 连续 整数 构成 的 5 x 5 阶 算 阵 ， 
matrix = Table[5i+j, {i,0,4}, 上,1,5] ]; 
matrix//MatrixFormn 
1 了 3 4 5 
| 7 8 8 10 
1 12 i3 14 15 
lb 17 18 13 20 
] 22 24 24 25 
这 时 候 可 以 调用 这 个 矩阵 中 每 个 具体 的 元 素 ,例如 调用 它们 在 第 三 行 第 四 列 的 元 素 . 
matrix[ [3,&1] 
14 


如 果 要 调用 整个 第 四 行 的 元 素 , 那么 可 以 从 matrix 中 提取 第 四 个 子 列表 . 


matrix[[4|| 

|16, 17, 18, 19, 20: 

而 整个 第 四 列 的 元 崇 可 以 借助 于 A1 指令 来 得 到 . 
matrix[ [及 11，4 | 

14, 9, 14, 19, 24! 

我 们 也 可 以 得 到 在 第 1, 3，5 行 .第 2， 4 列 中 的 元 素 ， 
matrix[[ |1,3,5}, [2,4}] ]//MatrixForm 


2 4 
1 14 
22 25 
或 者 通过 删除 matrix 的 第 2,4 行 ,得 到 一 个 3 x 5 阶 算 阵 . 
matrix[[|1,3,5}, Alll]//MatrixForm 

| 2 3 | 5 
1 12 13 14 15 
2] 22 23 24 25 
道 过 仔细 地 使 用 Take 命令 (第 二 章 ), 我 们 甚至 可 以 构造 由 matrix 的 位 于 第 2 行 到 第 4 
行 ,第 3 列 到 第 5 列 的 元 素 组 成 的 子 托 中 


12.1 


第 十 二 章 ”线性 代数 
Take[matrix, 12,4}, {3,5|]//MatrixForn 
jg 9 10 
13 i]4 15 


-8 ji19 20 


习题 解答 


构造 一 个 由 2 的 苦 次 组 成 的 10 维 向 量 . 
和 解 和 枯 
powersof2 = Tahble[2*，|k，1，101] 
|2, 4, 8, 16, 32, 64, 128, 256, 512,，1024} 
Powersof2/ /MatrixForn 


12.2 构造 一 个 由 随机 数字 组 成 的 5 x 5 阶 矩 阵 ， 


12.3 


解 


Table[Randonm[ Integer, 10, 9)], 1i, 5}, 1j, 5 |//MatrixForn 
5 7 9 9 ad 


2 8 6 9 了 
1 0 8 2 2 
1 8 8 8 1 

2 2 3 4 


如 果 在 矩阵 定义 中 包含 了 / /MatrixForm 命令 , 会 出 现 什么 情况 呢 ? 


解 # 于 
m = (11,1}), 11,2}11//NMatrixForm 
[1 | 
L1 2 
n+ 加 
1 1 
?| .| * 并 没有 得 到 矩阵 对 诺 元 素 的 和 、 


由 十 mm 不 是 列表 ,因此 Mathematica 不 能 进行 指定 的 操作 .为 了 看 得 还 铺 楚 些 ,我们 使 
用 FullForm 前 仿 . 
FullForm[n] 


MatrixForm| List[List{1,1], List[1,21]] 


-200 + 


Matherauca 使 用 指南 


2 一 


现在 按 正 桶 的 方法 操作 ， 
nm = {1{1,1), {1,2!: 
1 11, 111, 11, 2 


m+ mMatrcixForm 


2 | 


- 4 
12.4 构造 一 个 10 x 10 阶 对 角 和 矩阵 ,其 对 角 抱 条 出 前 10 个 素数 构成 . 
解 # 
primelist = Array[Prime, 10]; | psne 是 Mathematica | 
DiagonalMatrix| primelist |//MatrixForn 内 置 的 命令 加 
2 .000 0 0 0 0 0 0 
0 3 90 0 0 0 0 0 
0 0 5 nu 0 0 0 0 0 0 
QO 0 0 7 0 0 0 0 0 0 
do 0 0 0 ii 0 0 0 0 0O 
0 0 0 0 0 13 0 0 0 0 
0 0 0 0 0D 0 17 0 0 0 
0 0 0 0 0 0 0 19 0 0 
QO 0 0 0 0 0 0 0 23 0 
0 0 0 0 0 0 0 0 0 29 


12.5 构 塌 一 个 5 x 5 阶 上 三 角 矩 阵 , 其 上 三 角 元 素 都 是 1, 对 主角 线 下 面 的 元 素 都 是 澡 . 
解 # 


m = Tablef IE[i <j,1.0], {i,5}, 1, 5; 


mA /MatrixForm 
i i 1 1 1 
0 1 1 1 1 
0 0 1 1 1 
0 0 0 1 1 
0 0 0 0 1 


12.6 构造 一 个 7 x 7 阶 准 对 角 窍 阵 , 其 主 对 角 线 上 元 素 都 足 2, 与 主 对 角 线 相 邻 的 元 素 都 是 


1, 其 它 抑 素 都 是 0. 

解 上 

m = Table[If[Abs[i ~ j] == 1, 1, 1f[i ==j,2,0]], {1,1,7|,{j,1,7}]; 

m/ /MatrixForn 
2 1 0 0 00 0 
1 2 110000 
0 1 2 1 0 0 0 
00 12 10 0 
0 .0 0 1 2 1 0 
0 0 00 12 1 
0 0 0 0 ¢ 1 2 


第 十 二 章 ”线性 代数 


12.7 今 m 为 6 x6 阶 算 阵 ,元 素 由 1 到 36 的 整数 格 成 .从 这 个 息 阵 构造 子 矩 阵 m2, 它 由 据 
的 位 于 奇数 行 与 偶数 列 的 元 素 组 成 . 
解 FF 
m = Table[6i+ji, {i,0,5), {),1,6)]: 

1 2 3 4 5 6 
了 8 9 l0 1l1 12 
13 14 15 16 17 18 
19 20 21 22 23 24 
25 26 27 28 29 30 
1 32 33 34 35 36 
m2 = m[[i1,3,5}, {2,4,6)]]; 
m2/ /MatrixForm 


2 4 6 
14 leé 18 
6 28 30 


12.2 上 矩阵 运算 


由 于 在 Mathematica 中 癌 量 与 短 阵 是 作为 列表 来 存 迪 的， 因此 在 第 三 章 中 描述 的 所 有 列 
雪 操 作 都 可 以 应 用 到 向 量 与 矩阵 上 . 另外 , 还 有 一 些 专 门 的 命令 , 只 适用 于 和 矩阵 由于 ， 维 问 
莉 可 以 认为 是 ma x 1 阶 秆 阵 , 所 以 这 些 讲述 的 命令 也 同样 适用 于 向 量 .在 下 面 的 语法 措 述 中 ， 
mml 与 m2 表示 秆 阵 , v1 与 v2 表示 向 其 . 

四 ”ul + m2 计算 并 阵 的 和 . 

国 ml - m2 计算 下 阵 的 差 . 
cum 把 征 阵 m 中 每 个 元 素 都 乘 上 常量 <， 
ml .m2 计算 ml 与 m2 的 矩阵 乘积 . v1.v2 计算 vl 与 v2 的 内 积 . 对 于 和 给 阵 而 言 ,这 个 运 
算 圳 回 一 个 列表 ,而 对 于 各 其 ,只 返回 一 个 数 ， 
国 ”Cross| v1，v2] 志 回 v1 与 v2 的 叉 税 , (这 只 适用 于 三 维 向 其 .) 道 过 输入 (不 加 空格 ) 

按键 序列 抽调 cross 请 泗 也 可 以 在 计算 表达 式 中 插入 叉 乘 符号 x ， 


例 5 首先 以 列表 形式 生成 一 个 3 x 3 阶 的 随 宙 矩 阵 ， 

nl = Table[Random[ Integer, 10, 91], {i,1,3}, 1j,1,3]] 

| 19,4,2:, |2,9,3|, {0,1,4!! 

2 = Table[Randcm[ Integer, 10, 9}1], fi,1,3|, {j,1,3}] 

:12,8,1!,， 18,3,4|1,， {6,4,0|i 

下 面 以 害 阵 形式 查看 其 内 容 . 

ml/ /MatrixForm 
9 4 2 
2 9 3 
0 1 #4 
In2/ /MatrixForm 
2 8 1 
8 3 4 
6 4 0 
下 而 的 操作 是 把 ml 中 每 个 元 素 都 乘 以 5. 


5 ml 


. 272 。 


例 7 


Mathematira 司 用 指证 


r45 20 10 
10 45 | 
‘0 5 20 

接 下 来 计算 两 个 矩阵 的 和 、 差 与 积 ， 


ml] 十 m2 //MatrixForn 


li 12 3 
1D 12 7 
6 5 4 


wml] - m2 //MatrixForm 


7 -4 1 
-6 6 —1 


一 市 一 了 4 


m1 .m2 / /MatrirxForm 


G2 G2 25 
dq4 535 38 
2 19 4 


必须 注意 在 计算 矩阵 乘积 时 不 能 用 * 符号 , 因为 这 个 符 导 根据 列表 中 的 约定 , 指 
的 是 把 矩阵 对 应 元 素 相 乘 ， 


ml] * m2//MatrixForm 


18 32 2 
]6 217 12 
0 4 0 


vi = {1,2,3}; 

v2 = {4,5,6}|; 

Vi.v2 

32 在 Mathematica 中 是 用 一 个 数 表 示 肉 积 ,而 并 不 用 包 合 一 个 数 的 列表 
Cross[ v1, v2| 

;~ 3, 6， 一 3| 


Mathematica 对 行 困 量 与 列 癌 量 不 如 区 分 .因此 ,如果 是 呈 维 问 量 ,mm 是 一 个 mx 
n 阶 窒 阵 ,那么 vn 与 m.v 者 是 有 定义 的 ( 曙 然 它们 一 般 得 到 不 同 的 结果 ). 而 且 , 如果 
vi 是 一 个 n x 工 阶 第 阵 ( 列 向 量 ),v2 是 一 个 1 x a 阶 矩阵 ( 行 向 基 ) ,那么 v1.v2 应 当 
为 n x n 阶 矩 阵 .但 Mathematica 仍然 作为 内 积 来 计算 .如 果 要 计算 两 个 向 其 的 外 积 ， 
应 当 使 用 命令 Outer. 

国 Duter[Tines，vl，v2 1] 计算 v1 与 v2 的 外 积 . 


vl = {1,2,31; 
v2 = 14,5,6}; 
nm = {1,2,2}, {2,3,3|, {3,1,2|}; 
mi /MatrixForn 


11 2 2 
2 3 3 
3 


1] 2. 
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| 1 2 2|11 11 
和 | 2 3 3||2|=|17 
111, 17, 11: 3 1 2113 |] 
1 1 2 2 
如 Dn _ 
23 2 3 31=114 11 14 
:14, 11, £4| | | | ] 


Outer[ Times, vi, v2]//MatrixForm 


1 4 5 6, 
2|[456|=|8 10 » 
L3 12 15 18 


4 5 6 
8 i0 1i2 


12 13 18 


Inverse[ 矩阵 ] 计算 惠 阵 的 逆 矩 阵 . 

Det[ 矩阵 ] 计算 矩阵 的 行 蜀 起. 

Transpose[ 犯 阵 ] 计算 算 阵 的 转 置 . 

Tz[ 和 矩阵 ] 计算 开 阵 的 迹 . 

MatzrixPowet 矩阵 ， n] 计算 算 阵 的 na 次 方 ， 

Minozs[ 息 阵 . 生成 一 个 矩阵 , 其 第 (i;,j) 个 元 素 就 是 从 第 阵 中 删 去 第 n -i; + 1 
行 与 第 nn 一 j + 1 列 得 到 的 子 矩 阵 的 行列 式 ， 

昌 ”Minorsf 和 矩阵 ，k] 生 成 一 个 矩阵 , 其 元 紊 由 算 阵 有 所有 可 能 的 x 阶 子 什 阵 的 行列 式 
组 成 . (这 时 甜 阵 不 必 是 方 阵 .) 


1 
例 8 ml = : 


这 个 簿 阵 以 及 下 面 的 那个 运 降 都 是 用 在 Input 菜单 


中 的 Create Table/Meatrix/Palette 二 今生 成 的 ， 


1 3 中 
m2 = |5 7 8|; 
10 11 12 

] 


Inverse[ ml |//MatrixForm 
一 23 2 0 ， 
次 
-1 一 卫 1 
Tr[ mi] 
9 
MatrixPower[ ml1, 3]//MatrixForm 


97 ld2 160 
1l51 221 249 
231 338 381 


Transposel m2 ]//NMatrixForm 
1 5 3 
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18 
在 计 和 从 迹 时 ,矩阵 不 必 是 方 阵 . 


例 4 m= Table[a[li,j], fi,1,3}, {j,1,3})]; 
mi /MatrixForm 
a[l1l,1| all1,2] all,3] 
a a[ 2,2| sl 
[3,1| al3,2] al3,3] 
Minors[n|//MatrixForm 
a ,2] 一 al1,3ja[2,1 +a[lljal2,3] -all,3ja[2,2]+a1l,2]a[2,3| 


z 也 
-all,2]al2,1}+all,1ilal3,2] -all,3ja[3,1]+a[l,l]jal3,3] -a[ll,3]a[f3,2] +a:1,2]al3,3] 
-al2,2jal3,1]+al2,1jal3,2j -让 2,3]a[3,11+al2,1]al3,3] -al2,3]a[3,2]+a[l2,2]af3,3]- 


习题 解答 


12.8 辐 量 的 ( 欧 几 里 得 } 柳 就 是 其 所 有 分 红 的 平方 和 的 平方 根 . 由 比 计 算 向 量 (1，3，5,， 7， 
9，11,，13，15】 的 模 ， 


解 # 

v = Table[2k- 1, {k, 1, 8]] 
‘1, 3, 5, 7, 9, 11, 13, 15| 
nrnm VV.Y 


2 170 


432.9 证 明 在 R 中 两 个 向 其 的 义 业 每 直 于 构成 它 的 两 个 向 量 ， 
解 ”& 


令 妇 三 (ul u2 u3),v = (vl, 这 ,v3), 首 先 计 算出 w = gv .然后 验证 w 上 让 与 
w __v :这 里 要 利用 出 个 同 量 嫩 直 (上 ) 当 旦 仅 当 它 站 的 内 积 为 0 这 一 事实 ， 

ful, Uz, u3 | ; 

v = {vl, v2, v3}; 


W = Crosslu, v| 


UU 


| =~ u3v2 + u2 v3, U3 v1 -uv3 — U2 vl + ul v2 
u, WA7 Expand 

0 

Vv, WA 7 Expand 

0 


12.10 可 以 让 明 庄 #，?， 兴 攀 成 的 平行 六 面体 的 体积 等 于 | ，({v x w}|. 利 用 这 个 公式 计 
算 由 i 十 27 一 3K,2i 一 57 + ,3i + j+ 2k 形成 的 平行 六 面体 的 体积 .(w ，{» 
x ww】 称 为 同 量 ww，v，w 的 光合 积 .) 
解 上 
u = ‘1, 2，-3|| 
vy = '2, -5, 1|; 
Ww = 13, 1, 21: 


volume = Abs[u.Cross[v,w|| 
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1 


bd 


412.1 今明 = www. 证明 这 三 个 同 熙 的 泽 


合 积 为 

ul uw uy 
uv XxX w=|Iv vw v3 

wi wi wy 

解 5 

u = [ul, u2, u3|; 

v = Ivi, v2, v3}; 

w = {Wl, w2, wal, 

matrix = iu, v, Wl|; 


lhs = u.Cross[v,w]|//Expand; 
rhs = Detlmatrixl]//Lxrpand; 
lhs = = rhs 


True 


12.12 项 耳 怕 特 和 矩阵 是 一 个 方 阵 , 其 第 ; 行 第 ; 列 元 案 为 
阵 , 并 计算 它 的 行列 式 与 他 候 阵 . 
解 #4 
ft[i-,j-] = 1/(i+j-1); 
hilbert = Array[lf, {6,6}]; 


一. 请 构造 6 阶 的 希 寸 伯 特 短 


z 十 上 一 


hilbert//MatrixForm 
,L111 11 
2 2 4d 5 6 
1 i 1 1 1 1 
2 3 | 5 了 
1 1 1 1 i 1 
3 4 5 6 7 8 
1 1 1 1 1 Ll 
4 5 6 ?7 8 9 
1 1 1 1 1 1 
5 6 FE 8 9 10 
1 1 1 1 1 1 
6 1 8 9 10 11 
Det[hilbert | 
1 
1863134204349200000 
Inverge[hilbert |//MatrixForn 
3 证 一 占 30 当当 扣 由 — T1560 560 — 2712 
一 白 3 14700 — 88200 2116880 — 220500 B83180 
3360 — 88200 5644800 一 1411200 1512000 一 582220 
— 7560 记 1 1 全 各 0 — 1411200 362D600 一 3969000 lS552320 
T7560 — 220500 lS512000 一 3369000 44]0000 — 174636Q 


— 2712 B3180 — SB2120 1552320 一 ?74862360 上 98544 J 


. 276 ， 


Mathemarica 合用 指向 


12.13 ”构造 一 个 表格 , 别 出 从 1 阶 到 10 阶 和 硕 年 伯 特 矩阵 (见习 题 12.12) 的 行列 式 . 


12.14 


解 上 


Ciear[hilbert | 


E[i-，j-j] 


Do[hilbert[x] 


li/(i+j-1); 


三 Arravy[f, [KK ]， {k, 1， 10}]); 
TableForm[ Table[ {k, Det[hilbert[k | |//N|I, {kxk, 1, 101!], 
TableHeadings — {None, |'k’, “determinant”}}] 


由 于 行列 式 不 是 零 ,所 以 种 阶 希 耳 伯 


特 短 阵 都 基 可 诞 的 . 实际 上 项 了 本 怕 特 


年 阵 是 一 个 经 典 的 病态 算 阵 例子 ， 


10 | (M 是 一 个 随机 和 矩阵) 计算 lim M" ， 


Limit[MatrixPower[n, n|, n—% |//MatrixForm 


kK determinant 
1 1. 
2 0.0833333 
3 0.000462963 
1.65344 x 10 
5 3,7493 X 10 
6 5,3673 xX 10°™? 
7 4.8358 X 10°7? 
8 2.73705 Xx 10 2 
9 9.72023 X 10° 生 
10 2,16418 x 107 33 
二 牵 了 
10 10 10 
SM=li ia 
3 4 1 
lI0 10 10 
解 ¥ 
1 2 
a =|3 3 4|:; 
4 1 
Clear[n | 
47 23 19 
150 75 50 
47 23 19 
150 75 50 
47 23 19 
150 75 50 
1 2 一 
2 1 2 
邻 4=| 0 1 -2 
] -1 1 
2 一 2 1 


,T= +o2r-r +y2- 3r +2, 计算 


32.16 


12 .17 
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1 

2 1 2 -2 0 

0 1 -2 3 一 1 

1 -1 1 2 -3 
-2 一 也 1 1 也 
MatrixPower[a, S$] + 2 MatrixPowerla,4|] — MatrixrBower[a,3] + 

MatrixPower[a,2] - 3a + 2 IdentityMatrix[5|]//MatrixForm 


| ~A96 -948 一 189 1776 ~ 1695 
一 了 26 — B62 288 714 一 性 白 
| 117 399 -103 -648 1233 
—]74 2 315 一 12156 1875 
1419 i068 -267 -702 -1069 


可 以 证 明 复 数 。 + 5 与 从 阵 | “。 《| 具 有 相同 的 代数 性 质 .利用 短 阵 计算 


(2 + 3i)°, 并 利用 复数 算术 验证 结果 的 正确 性 . 
解 # 


| 


MatrixPower[a, 5]//MatrixForn 


[122 一 593 z 
| | < 一 这 表示 复数 122 - 597j. 
597 122 
(2 + 31) 
122 - 597 
计算 行列 式 
1 1 1 1 
| 工 2 了 3 Tn 
Xi 2 3 rn 
1 zl zr! _, 1 
在 二 2,，3, 4,， 5 时 的 值 .由 此 可 以 归纳 出 结果 的 形式 吗 ?” 这 个 行列 式 称 为 范 德 壹 
行列 式 . 
解 ”# 于 
m[n_ ] := Table[x[i]"j, {j, 0, n=-1}, {i, 1, n}]; 
m[2]//NMatrixForm 
[a al) 
xl1] x[2] 
nm[3]//MatrixForm 


1 1 工 
区 x| 2 加 


x[1]” x[2]° x[3) 


“78 ， 
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Det[m[2] |//Factor 

—xI1|l+xI21 

Det[m[3 |] ]//Factor 

-Cx[1] ~ x[2]) (x[11 — xL3]) (xL2] - x[3]) 
Det[m[4|]//Factor 

(x[1] ~ xt2]) (xf ~- x[3]) (x[2] - x[3]) (xL1] - xl4]) 
Cx[2] — x[4]) (xL3] - xL4]) 

Det[mf[5 | )//Factor 

(xf1] — x[2]) (x[1] - zx[31) (x[21 — x[3]) (xL1] -= xl4]) 
(x[2] — x[4]) (x[3] — x[4]) (xli] - x[5]) (xl2] - x[L5]) 
(x[3] - x[5]) (x[4] - xl5]) 

一 般 地 ,det[mfn]] = [|[ (x[j] 一 x*[i]), 


i 


在 线性 代数 中 有 一 个 定理 , 内容 是 矩阵 的 行列 式 等 于 在 任 - - 行 或 任 一 列 中 每 个 元 素 与 
其 对 应 的 代数 余子 式 乘 积 的 和 .(ez 的 代数 余子 式 上 是 (-1 7 7 Mi 其 中 Ms 为 对 
应 的 余子 式 . ) 利 用 这 个 定理 计算 一 个 随机 生成 的 5 xx 5 阶 答 阵 的 行列 式 , 并 检 蛤 所 得 
结果 的 正确 性 ， 

解 上 EEF 

n= 3; 

a = Table[lRandon[ Integer, (0, 3)1, 1i, 1, n|, {3j,1,n|)}]; 

a/ /MatrixForm 
4 6& 5 3 
3 站 
6 9 
日 了 
OO 日 4 


3 
6 
? 
2 


< 
nn 本 ~ CI 


局 
sigins = Table[ (~ 1)"(3+j), fi, 1, n}, {j, 1, na}]; 
natrixofminors = Minorslal]; 


matrixofminors/ /MatrixForm 


171 159 -1734 283 -216 
-1350 -1384 -270 -140 -48 
e609 59d9 342 2943 一 各 
一 581 — 339 96 一 143 一 158 


一 3 -3333 -4d38 — 4491 Ta 


cofactors = matrixofminors +* signs; 


cofactors/ /MatrixForn 
171 一 159 —174 284 - 216 
1350 一 1584 270 -1d0 368 
69 一 549 342 一 293 一 78 
561 — 339 -96 —143 1é8 
一 3231 3334 一 448 4971 246 | 


i = 3; 一 对 第 一 行进 行 展开 . 


determinant = 2 忌 [Lin- 414+1,n-j+ 1 | # cofactors[ [i, j|]| 
i=1 


12.19 
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2082 
Det[al] 
O82 
1 1 | 1 
2 2 2 
令 x = 二 13| ,计算 xix = [12345]1|3| 与 xYx'=13![12345]. 
4 4 4 
5 
解 上 


x'x 是 向 量 * 与 自身 的 内 积 , 而 xx 是 一 个 5 x 5 阶 秆 了 泗 . 


Ed 
ll 
dh, 


xX, x 
59 
Outer[Times, x, x|//MatrixForm 


1 2 3 4 5 
2 4 6 8 10 
3 6 9 12 15 
4 8 12 16 20 
5 10 15 20 25 
12.3 矩阵 的 操作 


在 Mathematica 中 提供 了 一 个 软件 包 , 名 称 为 LinearAMgebra* Natrizxkanipuiation~ 其 中 包 
舍 了 大 荐 矩阵 操作 命令 , 当 处 理 线性 代数 中 的 问题 时 , 这 些 命令 就 非常 有 用 .当然 ,与 其 它 软件 
包 一 样 , 必须 在 使 用 其 中 他 令 之 前 上 载 这 个 软件 包 . 

下 面 的 命令 对 给 定 算 阵 进 行 增 大 处 理 ， 


例 10 


Appendcolums[ 和 矩阵 1， 和 矩阵 2，…] 通过 把 列 人 台 并 在 - :起 , 由 十 阵 1, 宅 阵 2，… 组 成 


一 个 矩阵 . 

AppendRows[ 矩阵 1， 和 矩阵 2，…] 通过 把 行人 台 并 在 一 起 ,由 罕 阵 1 矩阵 2，… 组 成 一 
个 矩阵 . 

BlocKkMatrix[ 和 矩阵 块 ] 以 分 顽 的 形式 构成 一 个 新 矩阵 ,这 里 的 算 阵 氛 为 一 组 给 阵 , 列 
表 的 构造 确定 块 的 安排 户 式 ， 


< LinearAlgebra™ MatrixManipulation ~ 


a b cc 
mi = : 冯 4 
h 1 
aa bb cc) 
m2 = < 全 外 ee 
hh ii 


AppendColumns| m1, m2 1//MatrixForn 
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h '! ， -~- nu-- 一 
~} | 由 与 2 的 对 应 列 组 合 在 - 超 ， | 


AppendRow[ ml ,ma2 |//MatrixForn 


a bb ct aa bh cc 
: e ft dd ee < al 二 m2 的 对 应 行 组 全 在 一 起 . 
h 1 的 bb 11 
BlockMatrix[ | [mil, m2}, {m2,m1!; ]//MatrixForm 
a bb ¢ aa bb cc 
d ee f dd ee ff 


g bh aa gg hh ii 列表 的 排 刘 表明 顶部 有 两 块 ,从 到 和 右 分 别 基 ml 
aa bb ce a b cc | 与 又 . 麻 部 也 自 两 据 , 从 左 到 各 分 别 是 m2 与 ml 

|_ 
dd ee ff = 


dg hh 11I gg b i 


下 面 的 命令 可 以 用 来 构造 子 拖 阵 . 


例 1 


TakeRows[ 和 矩阵 ，a] 构造 一 个 由 矩阵 的 前 na 行 元 素 组 成 的 子 矩 阵 . 如 果 mm 为 负数 ,就 
用 后 n 行 元 率 构 成 子 扯 阵 . 

TakeRows[ 矩阵 ， {n,n! | 由 汕 阵 的 第 n 行 到 第 n 行 的 元 素 构 成 子 答 阵 . 
TakeColumns[ 算 阵 ，nj] 构 道 一 个 由 窒 阵 的 前 n 列 元 素 组 成 的 子 抱 阵 . 如 果 mn 为 负数 ， 
号 几 后 nn 列 元 素 构 成 子 矩阵 . 

TakeColumns[ 矩阵 ，im, nj] 由 矩阵 的 第 nm 列 到 第 n 列 的 元 素 榴 成 子 矩阵 . 
TakeMatrix[ 和 矩 降 ，fiil, jli，fi2, j21] 构造 一 个 由 矩阵 的 介 (i1, j1) 与 (12, j2) 元 
素 之 间 的 元 素 组 成 的 子 矩 阵 . 

SubMatrix[ 和 矩阵 ，[i jj , fn, nj] 由 和 矩阵 的 从 (i,) 位 开始 ,构造 一 个 m x n 阶 子 矩 阵 . 


< LinearAlgebra™ MatrixManipulat ion ~ 
1 2 了 4 5 

6 7 8 9 10 

11 12 13 14 315| 


1l6 17 1iB 19 20 
TakeRows{[m, 31//MatrixFornm 


1 2 3 4 5 
6 了 a 9 10 
1]1 12 13 1d4 15 


TakeColumns[m, - 3 |//MatrixForm 
3 4 5 


也 三 


13 14 15 
18 19 20 
TakeRows[m, 12,31]//MatrixForm 


由 7 8 3 | 
11 12 13 14 15 
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TakeColumns[ nm, 12,3) ]//MatrixForn 
2 3 
7 8 
12 13 
17 18 
TakeMatrix[m, [|2,2|, {3,4}]//MatrixForm 
| 8 9 | 
12 13 14 
Sublatrix[m, [2,3}, {2,2}] ]//MatrixForm 


| 是 
13 14- 


虽然 许多 算 阵 都 可 以 用 前 一 节 介 绍 的 Table 或 array 命令 来 创建 ,但 是 和 矩阵 操作 软件 包 
中 还 是 提供 了 一 些 命 令 , 用 来 构造 特定 类 型 的 矩阵 . 


例 12 


UpperDiagonalMatrix[f,n] 创建 一 个 nx n 阶 上 三 角 秆 阵 , 主 对 角 线 及 主 对 角 线 以 
上 的 元 素 为 f[i, jj], 其 余 元 素 为 等 . 

LowerhiagonalMatrix[f,n] 创建 一 个 n x n 阶 下 三 角 钝 阵 , 主 对 角 线 及 主 对 和 角 线 以 
下 的 区 素 为 人 .ij, 其余 元 素 为 到 ， 

SeroMatrixin | 创建 一 个 nxn 阶 零 容 阵 ;ZeroMatrix[n, nj 创建 一 个 mm 闪 nm 除雪 上 
阵 . 

HilbertMatrix[nj] 创建 一 个 n x n 阶 希 耳 伯 特 矩阵 ;HilbertMatrix[m,n] 他 建 一 个 n 
x mn 阶 希 耳 伯 特征 阵 . 

HankelMatrix[n] 创建 一 个 Hankel 年 阵 , 其 第 一 行 (与 第 一 列 )} 元 素 为 {11，2， 


3，… ,ni ;HankelMatrix[n， 列 表 ] 创建 一 个 Hankel 矩阵 , 其 第 一 行 (与 第 一 列 ) 由 列 
表 中 元 内 组 成 . 


<< Linearhlgebra ~ MatrixKManipulation- 
£[i., jij-] = i+j; 
LowerDiaygonalMatrix[f, 5]//MatrixForm 


2 32 4 3 6 


uO 4 5 6 1 
0 0 6 7 8 
0 DD 0 8 9 


0 0 0 0 10 


UpperDiagonalMatrix[f,5]//MatrixForn 


2 0 0 0 


3 4 0 0 0 
4 5 6 0 0 
5 6 7 8 0 


a 7 8 9 10 


ZeroMatrix[3,5)|/ /MatrixFormn 


0 9 0 0 oo 
0 0 0 0 0 
oO D0 0 0 0 


HilbertMatrix[5]//NMatrixForm 


" 281 * 


" 282 - 
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天 一 一 一 一 一 一 一 一 一 一 一 


ol nl | Si 
-| | un | >| 
ol sp a AI 
ol alh i ol ol 
L 


cn | 心 | Lu | | 


HankelMatrix[S, la, b,c,d,el |]//MatrixForm 
a bb ¢ d 


站 
品 信和 
忆 


= 
0 
0 
0 
0 


[| 
人 


习题 解答 


构造 一 个 10 x 10 阶 上 三 角 和 矩阵 , 其 非 零 元 素 为 随机 数字 .证 明 这 个 矩阵 的 行列 式 等 
于 其 主 对 角 线 上 元 素 的 乘积 . 

解 。E 

< Linearhlgebra™ NatzixNanipulation ~ 

£[i., j-] := Random[lInteger, 10, 911 

性 = UpperDiagonalMatrix[£, 10|; 


LD/ /MatrixForm 
4 1 6 7 0 6 4 8 9 1 
0 1 7 353 1 3 9 0 5 8 
0 0 5 6 9 5 3 3 3 5 
oO GC 0 1 5 7 2 5 3 4 
0 0 0 0 6 8 4 0 9 0 
0 0 0 0 0 5 2 0 5 0 
QO 000 0 0 3 5 5 7 
0 0 0 0 0 0 0 3 6 8 
yy 0 0 0 0 0 0 og 3 7 
0 0 0 0 0 0 0 0 0 4 
10 
Det[ma] = = J]| wi[i,i]] 
l=1 
True 


移 褒 一 个 9 x 9 阶 块 对 角 距 阵 , 其 中 一 块 为 2 x 2 阶 第 阵 , 元 素 全 是 2, 另 一 块 3 x 3 
阶 短 阵 , 元 素 全 是 3, 最 后 一块 4 x 4 阶 矩 阵 , 元素 全 是 4.{ 所 谓 块 对 角 撼 阵 , 就 是 . -个 
方 阵 , 其 对 角 弘 上 的 秆 阵 块 也 是 方 阵 ,而 其 它 志 素 都 是 零 .) 


得 8 汪 


< LinearAlgebra™ HatrixManipulation ~ 
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mi = Table[2, 121}, 121]; 
m2 = Table[3, 13}, 131]: 
m3 = Tableld4, [41}, {4|]; 


BlockMatrix[{{m1, ZeroMatrix[2,71!, 
[ZeroMatrix[3,2], m2, ZeroMatrix[3,41|, 
{ZeroMatrix[ 4,5], m3)}]//MatrixForm 


2 2 0 0 0 0 0 0 0 
2 20 0 0 0 0 0 v6 
0 0 3 3 3 0 0 0 0U 
0 0 3 3 3 0 0 0 0 
yd 0 3 3 3 0 0 0 
a 0 0 0 0 4 4 4 4 
0 0 0 0 0 4 4 4 4 
0 0 0 0 0 4 4 4 4 
0 0 0 0 0 4 4 4 4, 
a 上 » Ad ee 
1 gE hh 71 3 
12.22 今 M = kk 7 nn 0, 人 出 从 MI 中 删除 第 二 行 与 第 四 行 后 得 到 的 窑 阵 PP. 
po rr st 
vy TW 2 
解 8 


< LinearAlgebra“ MatrixManipulation ~ 


temp = Characterkangel ar，“ 人 | 一 后 成 字 坟 夫 ， 
nm = Partition|temp, 51]; < 构造 三 个 子 询 表 , 每 个 子 别 表 中 有 五 个 字母 . 
nn/ /MatrixForm 
a De de 
f gog h i J 
k 1 m no 
DPD dq rr SS t 
UU VV W 了 
templ = TakeColumns[m, 11,211]; = 一 ww 的 第 1-2 列 . 
七 mp2 = TakeColumns[m, |4,5}|]: < 的 第 4-5 列 . 
temp3 = RARPPendRows[temp1，temp2] ; < 一 把 第 1-2 询 与 第 4-5 列 组 合 起 来 
temp3/ /MatrixForm 
a b d e 
f g 1 j 
k 1 no 一 这 上 时 给 阵 的 第 3 列 已 被 删除 ,下 面 再 删除 其 第 4 行 . 
Pp 9 8 t 
U YY X YY 
tenmp4 = TakeRows[temp3, {1,3|]; 一 temp3 的 第 1-2 行 . 
temp5 = TakeRows[temp3, — 1]; = 一 temp3 的 第 5 行 . 
p = AppendRows| tenp4, temp5)]; 一 把 第 1-2 行 与 第 5 行 组 合 起 来 ， 


pr/ /MatrixForn 
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a 上 过 e 
f g i J 
Kk 1 n oo 
UU Vv XxX 六 


12.4 线性 方程 


Mathematica 提供 了 许多 方法 求解 线性 方程 组 .在 第 六 章 中 讨论 的 Solve 他 令 就 是 其 中 的 
一 种 方法 ,但 对 二 大 的 方程 组 而 言 ,这 种 方法 就 显得 有 点 儿 麻 烦 ,而 且 效 率 不 高 .本 节 我 们 记 论 
用 以 求解 线性 方程 组 的 其 它 的 许多 方法 ， 

国 LinearSolve[a，bj] 给 出 向 量 x, 使 得 ax =b 上 成立 . 

其 中 a 是 未 知 的 系数 矩阵 ,而 b 为 线性 方程 组 的 “右边 项 " . 如果 a 为 可 闭 阵 ,那么 Linear- 
Solve 就 给 出 线性 方程 组 的 惟一 解 . 如 果 a 为 奇异 阵 , 那 么 方程 组 就 可 能 没有 解 , 也 有 可 能 存 
在 无 穷 组 解 


如 果 方程 组 具有 惟一 解 , Mathematica 就 会 给 出 这 个 解 . 如 果 方 程 组 没有 解 , Mathematica 
就 会 返回 出 错 信息 ， 


例 13 方程 组 2x + yz =7,x -4y+3z=2,3xz + 2y + 2z = 13 具 有 惟一 解 ,而 
方程 组 2rz + yx =7,x 一 4y+ 3z 二 2,37x -3y+4z = 10 没有 解 . 


十 
十 

2 1 1 
al = : 一 及 | 


2 


LinearSolve[ al，bl } 

111! ,124,， 31 

LinearSolve[a2, b2| 

LinearSolve: :nosol : 

Linear equation encountered which has no solution, 

《 遇 到 手 没 有 解 的 线性 方程 组 . ) 

LanearSolvel 112,1,1!, 11, —4,3|, 13, -3,4f!, 有， 412 和 0 


如 果 方 程 组 a.x = b 有 无 穷 组 解 , 处 至 起 来 就 有 些 复杂 .对 于 这 种 情况 , Mathematica 就 会 
返回 一 个 解 , 称 为 特 解 .而 所 有 解 则 是 由 特 解 加 上 对 应 的 齐 次 方程 组 a.x = 0 的 所 有 解构 成 
的 ， 

所 有 满足 a.x = 0 的 向 量 x 全 体 称 为 a 的 零 空间 , 可 以 很 容易 地 用 HullSpace 命令 确定 
出 来 零 空间 的 构造 . 

国 ”jullSpace[a] 起 回 a 的 零 空 间 的 基 条 量 ， 

a 的 地 上 度 , 即 在 aa 的 零 空 间 中 最 大 线性 无 关 间 是 组 的 和 突 量 个 数 可 以 通过 计算 
Length[ Nul15SpaceLa]] 得 到 .a 的 秩 可 以 用 nm 一 Length[NullsSpace[a|| 算 出 ,其 中 5 表示 a 的 
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列 数 . 


例 14 方程 组 2x + y+z=7,x 一 4y 二 3z 二 23r 一 3y + 4z = 9 有 无 穷 组 解 . 


2 1 1 
| 一 和 :| 
一 记 总 
7 


nullspacebasis = MullSpacela | 


i-7, 5, | 由 于 零 空间 非 空 , 困 此 投 有 众 一 解 . 


particular = LinearSolve[a, b| 
人 于 (二), ot) 一 这 是 -个 特 解 
方程 组 的 完全 解 具有 形式 
tx¥rnullspacebasis 十 particular 
其 中 + 是 任意 参数 . 然而 , 为 了 表示 成 单个 列表 , 我 们 必须 展 平 nullspacebasis 和 
particular. 


generalsolution 一 七 * Flatten[nullspacebasis| 十 Flatten| particular | 


10_,, 1 | 
3 -7t, 本 十 5t, ot 


作为 检验 的 步 又 , 我们 下 面 把 一 般 解 代 回 天 原来 的 方程 组 中 . 
axXA.X 一 |1073- 7?t，173+ 5t, 9t|//Expand 
17, 2, 9} 


求解 线性 方程 组 a,x = bb 的 高 斯 - 约 当 方 法 是 基于 对 增 广 秆 阵 [a |b] 的 简化 处 理 ,这 个 过 
程 通过 初等 行 变 换 把 答 阵 转化 为 简化 行 梯形 形式 . 

基本 初等 行 变换 有 下 述 三 种 ， 

ia) 人 交换 两 行 . 

(hb) 在 一 行 中 恬 上 一 个 非 零 常数 ， 

(tc) 在 一 行 中 加 上 男 一 行 的 倍数 . 
容易 证 明 初 等 行 变换 对 方程 组 的 解 没 有 影响 , 一 个 矩阵 称 为 简化 行 梯形 形式 , 是 指 

(a) 每 一 行 中 第 一 个 非 零 匹 素 都 是 1( 称 为 首 1). 

(by 在 这 个 1 的 上 面 或 下 面 的 元 素 都 是 0. 

Lc) 对 于 两 个 言 工 的 行 ,下 面 的 行 中 第 一 个 非 零 元 素 比 前 一 个 的 更 千 右 ， 


为 了 求解 线性 方程 组 ,我 们 使 用 初等 行 变 换 把 增 广 矩阵 转化 为 简化 行 梯形 形式 .这 时 方程 
组 有 没有 解 ,以 及 有 解 时 解 是 什么 就 可 以 很 容易 得 出 、 

学 过 线性 代数 的 人 都 知道 行 变 换 是 非常 费时 间 的 ,而 且 整 个 过 程 非常 繁 烦 , 很 容易 出 错 ， 
然而 , Mathematica 的 RowReduce 命令 可 以 自动 地 把 任意 矩阵 转化 为 简化 行 梯形 形式 . 

图。 RowReduce[l 证 阵 ] 把 息 阵 转化 为 简化 行 梯形 形式 . 


例 15 考虑 4 x 5 阶 矩 阵 ,其 元 素 为 aij= |i -jj|. 
已 = Table[Abs[i - j], EE 1,， 4|， {5j， 41， 5|]; 
a /MatrixForn 


786， Mathematica 由 用 指南 


一 
已 上 cn 


2 
3 2 1 1 
RowReduce[ a |/ /MatrixForn 


I 上 
hk  L 恬 


] 0 90 9 二 


0 1 0 9 
0 0 1 入 


0 0 0 1 


下 面 演 民 行 简化 过 程 挟 恕 何 用 于 线性 方程 组 的 求解 的 .为 了 便于 比较 ,我 们 使 用 在 前 面 的 
例 13 与 例 14 中 考虑 的 二 个 例 下. 


例 16 {a) 方程 组 2z +y+z=7r-4y+3z=23r+2y+2x= 13 (县 有 惟 
一 解 ) 
(bh) 方程 组 2r + y+x=7 -4y+3z 二 2,3r 一 3y 十 4z = 1 【无 解 ) 
(c) 方程 组 2x + y+x=7, rx- 4y+3r=2,3z7 一 3y 二 4z = 9 【有 有 无穷 
组 解 ) 


这 三 个 方程 组 的 增 广 矩阵 分 别 为 


之 1 7 2 1 
al = |1 ~4 3 | a2 = |] -#4 
2 2 13 -3 


RowReduce[ al |/ /NatrixFornm 


(Lu 上 
Fo ~ 
| 
也 
ds 
| 
一 一 
小 
| 亚 
ds 
by | 
RY ~ 
LL | 


rh 
qb 
Lr | 


1 0 0 1 
， 1 0 当 征 阵 被 简化 后 , 如 巢 把 它 看 作 方 程 衣 ,可知 .c= 1,*% 一 2,2 一 3. 
0 0 1 3 
RowReduce[ a2 |//MatrixForm 
1] 0 一 0 
3 简化 后 的 十 阵 底 行 指 的 是 0z + 0y+0z=1, 这 当然 是 
9 1 5 0 不 可 能 的 。 这 个 矛盾 ( - 行 中 只 有 最 后 一 个 是 1, 其 余 
3 都 是 0) 说 胃 方 程 组 没 丰 解 . 
a 0 0 1 
RowReduce[a3 ]//NatrixForn 
1 0 本 和 底 行 全 是 0 没有 任何 不 对 闷 的 地 方 .然而 这 个 基 程 组 没有 惟一 解 ， 
= 1 好 果 令 ==t, 其中: 为 独立 参数 ,那么 方程 组 的 解 其 有 如 下 形式 : 
0 0 7 
了 
0 0 0 


注意 ”虽然 这 个 解 与 例 14 给 出 的 解 在 形式 上 稍 有 些 不 同 ,但 从 它们 确定 相同 的 解 集 的 意 文 上 
看 ,它们 是 符 价 的 . 


男 外 一 人 种 相当 帝 用 的 求解 线性 方程 组 的 方法 是 LU 分 解法 , 特别 当 寺 有 许多 方程 组 ,每 
个 方程 组 的 系数 起 阵 相 同时 ,这 种 方法 龙 其 有 用 .这 个 方法 的 基本 思想 是 很 箭 单 的 . 
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一 


如 果 A 为 方 阵 ,那么 它 可 以 分 解 为 和 A = LU, 其 中 工 为 下 三 角 和 矩阵, 主 对 角 线 上 元 素 全 
是 1,U 为 上 三 角 和 矩阵. 这 样 方程 组 Ar = 上 就 转化 为 (LU)x = 上 ,其 可 前 写 为 L(Ux) = 
bp ,如 果 今 y = Ex ,那么 可 以 从 Ly = 8 中 解 出 y, 一 有 了 3, 就 可 以 从 Ux = 3 中 解 出 x， 

虽然 LU 分 生活 把 一 个 方程 组 的 求解 转化 为 两 个 方程 组 的 求解 ,但 由 于 现 芷 每 个 方程 组 
的 系数 炬 阵 都 是 三 角 盾 阵 , 因此 计算 起 来 的 速度 是 很 快 的 ， 

这 样 记 时 使 用 LU 分 解法 求解 线性 方程 组 , 就 包 合 两 个 步骤 ;分解 与 回 代 . 对 应 的 Mathe- 
matica 命令 分 别 为 LUDecomposition HF LUBackSubstitution. 

国 “LUDecomposit+ion[ 和 矩阵 ] 求 山下 阵 的 了 分 解 . 


图 ”LUBackSubstitution[ 数 据 ，b] 利用 LUDecompositionft 责 阵 ] 输 出 的 结果 求解 方程 组 
算 阵 .x = b. 


LuDecomposition 的 输出 为 数据 ,由 二 部 分 组 成 :0 江 阵 工 与 UU 被 压缩 到 一 个 拓 阵 中 ， 


(ii 一 个 置换 加 是 , 以 及 (iii) 短 阵 的 LL 条件 数 , 拒 娄 据 玉 给 LUBackSubstitution 就 可 以 求解 
让 线性 方程 组 . 


置 损 风量 对 行进 行 重新 安排 , 以 保证 起 阵 具 有 最 大 的 数值 稳定 性 .本 书 中 我 们 对 条 件数 不 
加 讨论 ， 


LIDecomposition 与 LUBackSubstitution 不 能 用 于 求 佣 具有 无 穷 组 解 的 线性 方程 组 ， 


例 17 为 了 用 LU 分 解法 求解 线性 方程 组 2r +y+yx=7ry 一 4y+3z 一 237 + 29 
+ 2zx = 13, 我 们 首 赤 对 系数 和 矩阵 进行 矩阵 分 解 . 


2 1 1 7 
a= |1 -4 3|; b= 12|; 
2 2 3 


data = LiDecomposition|[al 


| I 了 | | 
11, — 4,31, 12,9, ~— S51, | 3， | 12,1,31, 1 | 


LUBackSubstitution[ data, hb ] 
| 111， 2，13H 


在 例 18 与 例 19 中 演示 了 LUDeconposition 返回 数据 的 结构 ， 


2 3 下 
例 18 m= : 11 | 


6 29 443 
{lu, p, cond} = LUDeconposition[n]| 
1 112,3,4|，12,5,6;,，|3,4,7||，})1,2,3}, 1| 


仁 这 个 例子 中 ,没有 进行 行 置 换 , 因为 这 时 的 置换 向 量 p 就 是 |1, 2,31 

LUDecomposition[ mj] 的 第 一 部 分 是 以 压缩 形式 给 出 的 两 个 还 阵 , 因为 我 们 已 知 LU 的 

] 0 0 

| ] | zx x 
YY 7 liD 0 x 

示 ) ,在 IUDeconmpositionfmj 的 第 一 部 分 就 是 用 单个 矩阵 的 形式 给 出 这 九 个 数 ， 

lu //MatrixForm 


和 2 3 4 
E 3 6 
3 4 7 


-一 


十 过 过 


,所 以 指定 矩阵 工 , C，, 只 需要 指定 九 个 元 素 ( 用 x 表 
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,8 有 Mathematica 使 用 指 症 


这 些 数 虽 然 是 组 人 台 在 一 个 矩阵 中 , 但 每 个 数 所 在 的 位 置 却 是 正确 的 ,因此 


1 0 02 3 4 
ln = 12 1 | 0 9 6 
4 1 0 7 


之 1 1 
例 19 m= |1 -4 3)|; 
| 2 2 
{lv, Pp, cond} = LUDecomposition[m] 
,一 12,9, 一 51，13, 芝 , 字 日 ，12,1,3|， 2 
lu//MatrixForn 
1 -4 3 
2 9 — 
4 7 
9 入 
如 果 仍 然 按 前 面 例 子 同 样 的 步骤 处 理 , 就 会 得 到 
1 0 Oo 
1 2 1 0 
14 
3 9 1 
|1 -4 3 
0 9 一 急 
uu = ， 
2 
0 0 9 


但 这 时 1 与 u 乘 起 来 并 不 等 于 原来 的 矩阵 ， 
1.u/MatrixForm 


1 -4 3 
2 1 1 
2 


实际 上 这 时 园 换 向 量 为 p = ;2，1，31, 表明 和 矩阵 中 第 一 行 与 第 二 行 交换 了 上 顺序 . 如 果 
这 时 交 措 1 中 相应 的 行 ,再 贰 上 0 就 会 得 到 原来 的 盾 阵 ， 


2 1 0 
1 1 0 0|， 
1 1- 


2 i 1 
1] -4 3 
3 + 2 


重 构 出 工 与 忌 矩 阵 的 更 方便 的 方法 是 利用 LUMatrices 命令 ,这 条 命令 包含 在 软件 所 
LinearAlgebra™ MatrixManipulation~ 中 . 


图 ”LUMatrices[1u] 返 回 一 个 列表 ,形式 为 11,， ui ,由 对 应 于 lu 的 矩阵 在 LD 分 解 中 被 署 
多 后 的 上 三 角 与 下 三 间 矩 阵 组 成 ,其 中 lu 为 LUDecomposition[ 和 矩阵 ] 的 第 一 个 元 素 . 


例 20 < binearAlgebra™ MatrixlManipulation ~ 
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zz i 1 
了 = |1 一 有 4 了 | 
2 2 


| lu, p, cond| LUDeconposition[ nm]| 


1 4 3 2,9, 5), $3, ,1 12,1,31, 1| 


LUMatrices[ lu] 
L111, 0,01, 12,1,01, (3, ,1), |f1, -4,34,10,9, -51, [0,0 这)|| 
1 = LUMatrices[ 1ul[[1]]:; 
u = LUMaetrices[ lu][[2]]; 


1[[p]j//MatrixForn ”< 1[[p]] 根 据 向 量 p 对 矩阵 1 的 行进 行 置 柳 . 


2 1 0 
1] 0 0 
14 
3 9 l 
ur/ /MatrixFormn 
] 一 1 3 
0 9 一 己 
了 
0 0 一 
L 9 


1][ [pl]].u/MatrixForn 


2» 1 1 
1 一 4 3 
2 2 


习题 解答 
12.23 由 (1 2, 1, 2, 1),(1, 3, 2, 4, 2} 与 (1，4,，3, 6, 3) 张 成 向 车 集 人 台 S ,描述 这 个 向 

其 集 从 的 结构 . 

解 8 于 

总 二 {1, 2， 1,， 2 1); 

b = {1, 3, 2, 4, 2|; 

心 11， 意 ， 号 6， 3 1; 

n= [a, b, ¢}; 

n/NMatrixFornm 

"| 2 1 2 1 由 给 定 问 量 作为 行 生 成 矩阵 m.n 的 行 空间 就 是 由 a,b,c 
13，4 ， 张 成 的 空间 .然后 把 这 个 矩阵 转化 为 简化 行 梯形 形式 . 
1 4 3 6 3 非 零 行 就 成 为 行 宝 则 的 一 :组 基 . 在 5S 中 每 个 向 其 都 是 这 


组 基 向 量 的 线性 线 合 . 


rref = RowReduce[n|; 

rref //MatrixForn 

i] 0 -1 -2 -1 

0 1 1 2 

:D0 0 0 0 Q 

5 #rref[[1]| + t+ *# rraf[[2]] 
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0 


‘Ss, t, ~ s+t, ~ 28+2t, -s+t; + 契 S 中 每 个 加 基部 具有 这 种 撒 式 ， 


12.24 在 线性 代数 中 有 一 个 定理 , 说 的 基 在 A 的 行 空间 中 每 个 向 直 者 正 交 十 A 的 零 空间 中 

的 每 个 向 此 . 清 对 下 述 矩 阵 验 证 这 个 定理 : 

] 2 3 4 5 

bb 7 & 9 10 

A= |l1 12 13 14 15|. 

16 17 18 19 20 

1 22 23 24 25 
解 有 8 
只 要 证 明 行 癌 量 中 每 个 荐 量 正 交 于 零 空间 中 的 每 个 基 向 量 就 可 以 了 . 
a = Partition|[ Range[l25]，5 |] ; 
a/iMatrixForn 


1 zz 3 4 5 


lb 1? 18 19 20 

al 22 23 24 25 
rowspacebasis = RowReduce| a]， 
ronspacebasis / /MatrixPorm 

1 0 -1 -2 -3 

0 1 之 3 4 

0 0 0 0 0 

0 0 0 日 0 

0 0 必 0 0 
nullspacebasigs = NullSpace[ a]; 
nullspacebasis //MatrixForn 

3 -#4 0 如 1 

2 -3 0 1 0 

1] -2 1 0 0 


rowspacebasigs. Transpose|nullspacebasis|//MatrixForm 
Q 0 0 


总 
0 
0 
癌 


ci 
人 


12.25 构造 一 个 $x 5 阶 由 随机 数字 组 成 的 矩阵 a, 再 构造 一 个 5 x 1 阶 由 随机 数字 组 成 的 
算 阵 b, 然后 用 Linearsolve 求解 线性 方程 组 a,x =b, 并 验证 解 萨 正确 性 . 
铎 FE 


a = Table[lRandonm[ integer, {0,9|], ii,1,5}, {j,1,5}1]: 
a /iMatrixForm 
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0 9 5 0 2 

7 7 5 9 3 

0 6 6 2 6 

5 8 4 3 9 

,3 0 8 1 5 
Detla] == 0 
False < 由 十 行列 式 不 等 上 ,所 以 这 个 方程 组 有 慌 一 解 ， 
b = Table[Randon[Integer, [0.9|], 1i,1,5})]; 
bh/ /MatrixForm 

1 

2 

4 

6 

1 


x =LinearSolve[a, b| 


(1- 8 | 名 | _ 187, J111) (143\| 
217)' \6511'\ 651)’ \a34l’ ec! 
总 .下 一 一 

Tirue 


i 
2 二 +2 yy 二 + 2 二 1), 

12.26 求 抽 线性 方程 组 ~ 的 - - 般 解 . 
2 十 2 十 和 十 2 二 


dw— Tt-—3y+z=—1 


解 上 

1 2 了 了 | 身 

2 1 2 5 10 
”| 

-1 -3 1 —1] 

Det[al| 
0 < 出 于 行列 式 为 李 , 央 此 方程 钥 只 可 能 没有 解 或 者 有 无 穷 组 解 . 
nullspacebasis = NullSpace[a| 
11 -13, 11, -10, 7|| 一 由 十 零 空 间 非 宝 , 所 以 方程 组 在 元 穷 组 解 . 
particular = LinearSolve[a, b| 
i ' r 
WA 
generalsolution = 七 x*Flattenlnullspacebhasis |] + Flatten[particular] 
(2 t,t, 10t, 7t 


WW 十 27 十 3y +3z 二 9， 
te 十 4 十 4 十 2 = 16, 
- 的 一 般 解 . 
Zw +2r+ y+22= 7, 
dw + Ort+iyt+8ze =25 


12.27 求 出 线性 方程 组 


12.28 


Mathematica 合用 指责 


解 ”上 瑟 

1 2 3 3 9 

I 有 5 16 
总 三 1h = 9 

2 2 1 2 7 

5 7 8 5 

Detla | 
0 


nullspacebasis = NullSpace[al 
111,， -2, 0, 11, j4,， -5, 2, 0|| 


particular = LinearSolve[a, b| 
让 
一 2100 


yeneralsolution = S *nullspacebasis[[1]] + 


t #+ nulispacebasis[[2]] + Fiatten[particular] 


11] 
i -2+s+4t,s -2s- 5t,2t,s! 


令 A 为 7 x 7 和 阶 三 对 角 答 阵 ,在 主 对 角 线 上 的 元 素 都 是 3, 与 主 对 角 线 相 邻 的 次 对 角 
线 上 元 素 都 是 一 1, 令 e; 表示 第 i 个 分 其 为 1, 其 它 分 量 都 是 0 的 七 维 向 量 , 求 解 方程 
组 Ax = ee,i? = 1,…,7. 

解 上 之 

a = Table[If[Absli-j]==1, -1, If[i==j, 3, 0]], 1i,1,3|.13.1371]; 

a/ /MatrixForn 


4 -1 0 0 0 0 0 
-1] 3 -~ 0 0 0 0 
出 -1 3 -1 0 0 0 
D 0 -1] 3 -1] 0 0 
0 0 0 -1 3 -1 0 
U D 0 U -1 3 一 
0D 0D 0 D D -1] 2. 


ludata = LUDeconposition[a]; 

hb = Table[lKroneckerDelita[i, 1], {i,1,71, (1,1,7!]: 
LUBackSubstitution[ ludata, b]//TablieForn 

377 4 55 1 8 1 1 

987 329 987 47 997 329 387 

4 144 55 3 8 3 1 


329 329 329 47 329 329 329 


55 55 440 8 64 8 8 

9B3 329 S387 47 9987 329 987 

1 4 占 21 8 4 了 当 j=] 时, KroneckerDelta[1,1]=1, 
4 47 47 47 47 47 | 怕 则 等 于 0. 

8 8 64 8 440 55 55 

987 329 987 47 387 329 387 


1 3 8 3 5 14 48 
329 329 329 47 329 329 329 


1 1 8 1 55 48 377 
987 329 987 47 987 329 987 


第 十 : 草 线性 代数 
这 个 表格 的 第 i 列表 示 方 程 组 Ax = e, 的 解 . 
2.5 正 交 性 


给 定 两 个 阿 量 , 如 果 它 们 的 内 积 等 于 零 , 束 称 它们 是 正 交 的 ( 王 直 的 ). 正 交 间 基 具 有 许多 
有 用 的 性 质 , 从 而 使 得 对 它们 的 处 理 非 党 方便 , 鲍 如 ,在 中 与 为 正 交 向 其 ,它们 就 满足 ( 广 闵 
的 ) 匈 股 定理 : ww + v= ul*+ vl“, 


通过 正 交 性 也 可 以 定义 投影 的 概念 .在 Rz 中 很 容易 看 出 投影 的 意义 .如 果 a = 了 BO 与 8 
= PR 为 具有 同样 起 点 了 的 两 个 向 量 ,而 且 如 果 5 为 从 R 到 PO 作 垂 线 的 牌 足 ,那么 少 在 a 上 
的 投影 就 是 向 量 PS .这 个 问 基 通常 用 proi,b 表示 ， 


可 以 利用 Mathematica 作 令 Projaction 计算 投影 同 量 , 这 条 命令 包含 在 软件 包 Linear- 
Algebra ~ Orthogonalization*™ 中 ， 


国 Brojection[ 向 是 1， 向 量 2] 给 出 同 基 1 在 电量 2 工 的 投影 . 
例 21 下 述 命 令 序列 可 以 计算 (1, 2, 3) 在 (-2,， 3，- 人 上 的 投影 . 


< LinearAlgebra™ Orthogonalization™ 


a = |1, 2, 3}; 
b= |-2,3, -1}; 
Proiection[a, b| 
1 二 3 _1 

了 14” 14 


正 交 性 与 所 考虑 空间 中 内 积 的 定义 有 关 . 默认 情况 下 , Mathematica 使 用 线性 代数 中 的 欧 
几 里 得 内 积 ( 上 总 积 ). 然 而 ,可 以 通过 包 合 innerProduet 选项 来 改变 这 一 点 . 
电 InnerProduct 一 ~ 国 数 ， 其 中 函数 为 一 个 纯粹 晒 数 ， 定义 所 考虑 空间 中 的 内 积 ， (关于 
纯粹 晒 数 的 讨论 ,请 见 附 录 .) 


可 以 证 明 , 六 果 ceayca 为 正 实 煞 , 屠 各区 下, 下 = cabj+ coazby+ cadabs 定 导 本 了 
R3 一 间 中 的 内 积 , 为 了 利用 这 种 内 积 计 算 (1，2,， 3) 在 (-2，3，-1) 上 的 投影 , 我 们 就 必 
须 定 义 适 当地 摘 述 这 种 内 积 的 纯粹 郴 数 .为 此 , 首先 计算 向 量 a *5, 然 后 计算 所 得 结果 与 。 
= (cl1，cz，c3) 的 内 积 .下 面 的 例子 演示 了 这 种 方法 . 


例 22 利用 内 积 志 ab> =2a1b1+3azb2+daab3 可 以 计算 (1, 2, 3) 在 (~2, 3，-1) 上 的 
投影 . 
~~ LinearAlgebra“" Orthogonalization -~ 
a = [1, 2, 3}; 
b= |{-2,3, -1|, 
Frojection[a, b, InnerProduct —*(|2,3,4}.| 亲 1 + 亲 2}&)] 


| - 乞 过 -二 
39'13’ 39 


: 3293 ， 


， 29d ， Mathematica 使 用 指南 


例 23 自贡 数 宇 间 中 请 用 的 内 积 道 稼 福 义 为 <<J，g> = | rz)g(z)dr .请 利用 这 种 定义 
计算 x 在 x ”+1 小 的 投影 . 
< Linearhlgebra™ Orthogonalization ~ 
a = x; 
b= x+1; 
Projection[a, b, InnerProduct {Integrate[ 间 1 ¥ #2, fx, -1, 1;]&)] 


1 3 
一 (1 + 
22(1 x ) 


外 定 苞 ,所 请 有 限 维 问 量 罕 间 ,大 是 具有 有 有 限 基 的 阿 量 衬 则 . 然而 ,除了 吕 包 含 零 向 其 的 平 
几 所 量 空间 外 ,其 它 辐 纪 空 间 都 可 以 具有 无 穷 组 不 同 的 基 . 
对 于 阿 量 至 间 而 言 ,最 方便 的 基 是 标准 正 交 基 . Gram-Schmidt 涉 交 化 过 程 就 是 一 种 把 普 
通 基 转化 标准 止 变 基 的 方法 . 
国 Normalize[ 问 量 ] 把 问 攻 转化 为 单位 同 巩 ， 
图 ”GramSchmidt [向 量 列表 ] 给 出 由 喇 量 列表 张 成 空间 的 一 组 标准 正 交 向 其 组 . 
"Hormalized 一 False 选项 可 以 包含 芷 GramSchmidt 稍 全 中 ， 从 而 使得 这 种 命令 
生成 正 区 辐 基 组 ,但 不 必 是 标准 正 交 打量 组 . 
*” InnerProduct 一 国 数 也 可 氛 用 在 这 条 命令 中 , 定 多 不 同 于 默认 内 积 (点 积 ) 的 内 
吕 
可 Brojection 一 样 , Normalize 与 GramSchmidt 也 是 包含 在 Linearalgebra- Orthooonal- 
ization* 软件 名 中 . 


例 24 为 了 相应 本 欧 几 里 得 内 积 把 (3, 4, 12) 单位 化 ,输入 
< LinearAlygebra“ Orthogonalization™ 
Normalize[ {3, 4, 121}] 

13 4 121 


GC 


‘13’ 13?13 


为 了 相应 卫 网 积 世 8 看 汪 -2ab + 3ar524 4a36b 把 这 个 向 其 标准 化 ,输入 
Normalizef {3, 4, 12}, lInnerProduct —=(|2,3,4|'|#1 # #2]8)] 


| 
2 21 24107 
例 25 给 出 由 (1, 1, 1, 0, 00), 00， 1, 1, 4, 0) 与 (0, 0, 1, 1, 1) 张 成 空间 的 -组 标准 正 交 
基 , 并 验证 床 得 结果 的 正确 改 ， 
< LinearAlgebra*™ Orthogonalization-~ 
v = {11,1,0,0}, {0,1,1,1,0},1{0,0,1,1,1}}; 
W = GramSchmidt[yv | 
| 


2 /0 2 10 v10' 2 .0 
为 广 验 证 所 得 结 时 的 正确 性 ,需要 计算 六 个 内 笠 . 
wl [1]]}.w[[1]] 


三 || 
3 
2 || 


| 
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一 


w[[2]].wLL2]j] 

1 

w[[3]).w[ [3]] 

1 二 这 涪 明 向 景 都 具有 单位 长 度 、 
w[[11].w[[2]] 

0 

w[L2]], wlL3]] 

0 

w[L3]].w[[1]] 

0 ~ 这 说 明 不 同 的 向 量 是 正安 的 


习题 解答 


12,29 计算 网 基 (1, 2，3, 4, 5) 相应 于 下 述 内 积 的 模 :(a) 欧 几 里 得 内 积 ifby < ay = 


2u1 Vit 了 vt Wy Vat Bug U4t ZHs Vs, 


解 # 

(a) (b) 
u = (1,2,3,4,5!; c = |2,3,1,3,2), 
norm = vu.u norm = vo, (ux a) 
v55 11 


12.30 计算 向 量 (a,，5,c) 在 每 个 坐标 轴 上 的 投影 . 
解 4 
<< LinearAlgebra™ Ortboygonalization ~ 
v = {a, b, ce); 
Projection[v, {1, 0, 01] 


la, 0, OI 
Projection[v, {0, 1, 0 
10, bp, 0 
Projection[v, {0, 0, 11] 
10, 0, cl 


12.31 求 出 与 (1， 一 2, 2，- 3) 有 同样 方向 的 单位 向 量 . 
解 上 
< 长 LinearR1Lgebra -Orthogeonalizatiocon ~ 
Normalize[ {1, -2, 2， -3}] 


|1 222 


1 
， 3 J2 3 3 J 


12.32 如 果 a = (1, 2,，3),b = (1， 一 2, 5), 请 计算 在 下 图 中 所 示 向 量 * 的 长 度 . 
解 旺 
由 于 bb + v= projsb, 因此» = prob -bb., 
<< LinearhAlogebra™ Orthogonalization ~ 
a = (1, 2, 3);b = (1, -2, 5); 


"286 + 


12.34 


Nathematica 使 用 指南 


v = b - Projection[b,al]; 
norm = Sqrt[v.v] 
138 


(7 


求 出 由 (1, 2, 1,，3),，(2, 2, 2, 2), 《1， 一 1, 1， 一 1) 与 (3, 4, 3,，5) 张 成 空间 的 正 
交 基 ， 


解 用 


由 于 需要 的 只 是 正 交 向 量 , 因此 在 Granschuidt 命令 中 使 用 Nornalized 一 False 选 
项 . 
“< LinearAlgebra* Orthogonalization -~ 
v1 = 11, 2, 1，3}; 
v2 = |2, 2, 2, 2}; 
v3 = {1, -1, 1, -1)|; 
va = 13，4，3，5|] ; 
v = |v1，v2，v3，v41 
= GramSchmidt[vy, Normalized 一 FalLse] 


111,2,1,31, (2 2 1b 和 | 
| 


15’15’15” 5 
2 8 2 4 


11’ - 记 , 过 ,二 ), 40,0,0,01) 


由 干 问 其 组 v 是 线性 相关 的 ,因此 Gramschmidt 只 


能 给 出 三 个 正 交 向 其 ,这 里 的 |0,0,0, | 可 被 忽略. 


给 定 由 不 超过 五 次 的 全 体 多 项 式 构成 的 线性 空间 Ps, 求 出 这 个 空间 相应 于 内 积 
< pg> = [plz)9(e)da 的 正 交 蔡 . 


解 ME 

Ps 有 一 组 基础 是 v = 11，z，zr“，z3，24，z5| .这 组 向 量 榴 成 线性 无 关 组 , 并 张 成 空 
间 Ps. 

“< LinearAlgebra™ Orthogonalization ~ 

v= {1, RE， x |: 


GranSchmidt[v, InnerProduct — {Integrate[ #1 #2, {x, -1, 1}]&), 
Normalized False |/ /Erpand 


1 AX 3 3 bx* | Sx 1 0 5 
1,x, 一 十 并 一 4 ,二 一 x 
Xt 5 ”35 7 *'2] 9 * 


注 利 ”在 这 道 题 中 得 到 的 函数 就 是 勤 让 德 多 项 式 ,并 对 它们 进行 了 规范 化 处 理 , 因此 
首 项 系数 都 是 1. 在 Mathematica 中 用 LegendreP 表示 这 些 甸 项 式 . 
normalizedlagerndre : = 

LegendreP[n,x|/Coafficient [LegendreP[n, x], xn] 
Table[ {n, normalizedlegendre}, in, 0, 5|]//Expand//TableForn 
0 1 


1 站 
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2 -本 + 到 
3 xt 


12.6 特征 值 与 特征 向 量 


我 们 称 数 为 方 阵 A 的 一 个 符 征 值 ,是 措 和 存在 非 稚 向 量 x ,使 得 Ax = A x, 这 时 x 标 为 
相应 于 这 个 特征 值 的 特征 向 量 , 虽 然 特 征 值 概念 在 线性 代数 中 是 非常 重要 的 ,但 是 当 算 阵 维 数 
很 太 时 , 特征 信和 以 及 对 应 的 特征 襄 量 的 计算 是 非常 困难 的 . 

确定 插 阵 特征 值 的 一 种 方法 就 是 求解 对 应 的 特征 方程 det(4 - X21) = 90. 一 旦 确定 了 特 
征 值 ,那么 通过 求解 齐 次 线性 方程 组 就 可 以 确定 对 应 的 特征 向 基 ， 


4 1 -1 
2 5 2 
1 1 2 
len = Length[a]; 

Solvef Det[a ~ 入 IdentityMatrix[len]] == 日 %] 

1 人 -全 3， 人 一 3 (AX ~ 51| 

所 以 特征 值 为 3( 重 数 为 2) 与 5. 为 了 求 出 相应 的 特征 向 量 ,我 们 看 一 下 A - 41 的 零 空 


例 26 a = 


[上 . 

NullSpacela - 3 IdentityMatrix[len]] 
11 10, 1 一 1 1 0 

Nul1Space[a ~ 5 IdentityMatrix[len}] 
1 11, 2,111 


当然 , 正 站 我 们 所 期 望 的 那样 , 在 Mathematica 中 包含 自动 计算 特征 值 、 特 征 向 量 以 及 其 
它 一 些 与 特征 值 和 特征 向 其 有 关 的 项 的 命令 . 
自 CharacteristicEolynomnial[ 和 矩阵 ， 变 量 ] 给 出 矩阵 的 特征 多 项 式 , 并 把 结果 表示 为 
指定 变量 的 多 项 式 . 
图 ”igenvalues[ 和 矩阵] 给 出 矩阵 的 特征 值 列 表 . 
国 Bigenvectozs[ 和 矩阵 ] 给 出 矩阵 的 特征 同 量 列表 . 
图 ”Eigensystem[ 算 阵 ] 迟 回 相应 于 和 矩阵 的 形式 为 ! 特 在 值 ,特征 向 基 | 列表. 


4 1 一 1 
例 27 a = 5 一 2|; 

1 1 2 
CharacteristicPolynomial[a, x | 


45 一 39X + llx ~- x’ 


Eigenvaluesl[ 8] 

13, 3, 5| 

Eigenvectors[a] 
[11,0,11 .1 =—1,1,0),11,2,1{: 


"2907 * 


" 298 。 


Mathermatica 使 用 指南 


Eigensystem[a| 


113,3,5), 1}1,.0,1!1,1 -1,1,01,11,2,1)1} 


如 果 下 阵 中 的 各 个 汇 么 是 以 准确 形式 ( 即 不 是 数值 形式 ) 给 出 的 ,那么 Mathematica 就 会 
尽力 给 出 矩阵 痊 克 的 特征 值 与 符 征 向 量 . 如 果 在 矩阵 中 有 的 元 素 是 以 数值 形式 给 出 的 , 那么 
Mathematica 束 会 给 出 数值 于 人 羽 缘 党 . 另外 ,也 可 以 利用 1 起 阵 ] 作 为 Characteris- 
ticPolynomial\ Eigenvalues 与 Eigenvectors 的 参数 ,以 强迫 Mathematica 利用 数值 算法 给 
出 扩 期 望 的 结果 .如 果 和 希望 得 到 高 的 精度 ,那么 可 以 使 用 外 矩 阵 ，k] 尺 得 到 kk 位 有 效 数字 . 


注意 ”由 于 数值 计算 特征 值 所 用 的 算法 与 精确 算法 不 同 , 因此 可 能 会 导致 所 得 的 结果 顺 
序 不 同 .而 且 , 由 于 特征 向 其 并 不 是 惟一 确定 的 ,因此 数值 特征 癌 基 也 可 能 与 前 面 得 到 的 不 同 ， 
但 它们 都 是 合法 的 特征 向 量 . 


例 28 a 1 1 | 


1 3J 

Rigenvalues[al 

12—v2,2+v2| 

Rigenvectors|al 

[1 -1-v2,1|,1-1+y2,11| 

Eigenvalues| N[al| 

|3.41421, 0.5857861 
Rigenvectors! NL a}} 

上 -0.382683，- 0,.92388|，| -0.92388，0.38268311 
BigenmvaLues[ 革 [ a，20] | 

13.4142135623730950488, 0.58578643762690495120| 
Eigenvectors[N[a, 20]] 

i} -0.38268343236508977173， 一 0.92387953251128675613|， 

| — 0.92387953251128675613, 0.3826834323650897717311 


习题 解答 


12.35 方 星 4 由 前 25 个 相 邻 整数 构成 ,那么 它 的 特征 多 项 式 是 什么 呢 ? 

解 “上 
a = Partition[Range[25}, 5]; 
a/ /MatrixForm 

1 2 3 4 5 

6 7 8 9 10 

ll] 12 13 144 15 

je 17 18 19 20 

1 22 23 24 25 
CharacteristicPolymonial[a,x] 
250 x + 65 xi— x 


12.36 考虑 SS x 5 阶 二 对 和 角 外 阵 , 其 主 对 舶 线 上 的 元 素 都 屁 4, 与 主 对 角 线 相 邻 的 次 对 角 线 
十 元 素 都 足 1. 用 一 种 明了 的 方式 给 出 这 个 给 阵 的 特征 值 以 及 对 应 的 特征 向 量 . 
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解 i 


荔 = Table[If|Abs[i- jj == 1，1， If [i == j， 4， 0] ]， {i,1,5}, |j, 1,5}]; 
mi/ /MatrixForm 
1 0 0 


Cr 忆 户 心 
上 六 世 必 


4 1 0 
1 4 1 
0 1 4 
0 0 1 4 
data = EB 
113,4,5,4—v3,4+vy31,11—1,1,0,—1,11,11,0, -1,0,11, 

| -1,—1,0,1,1|,11, -v3,2, —v3,11.11,v3,2,v3,1i!i 
Do[lPrint[ eigenvalue #",k, "igs, data[[1,k]], 

“with corresponding eigenvector: *, data[ [2,k]]], {k,1,5|}] 


igensystem| m| 


eigenvalue #1 is 3 with corresponding eigenvector: | —1,1,0, -1,1! 
eigenvalue #2 is 4 with corresponding eigenvector: 11.0 一 1.0,1| 


eigenvalue +¢3 is5 with corresponding eigenvector: | ~1,—1,0,1,11 


eigqenvalue 并 5 is 4 — v3 with corresponding eigenvector: 11, -vy3,2, -v3 | 
elgenvalue #95 is4 + v3 with corresponding eligenvector:; 11,y3, 2, v3, 1 | 


12.37 在 线性 代数 中 有 一 个 重要 的 定理 , 即 Cayley-Hamilton 定理 ,这 个 定理 指 的 是 抢 阵 湛 足 
七 的 特征 多 项 式 , 对 于 下 述 和 矩阵 验证 Cayley-Hamilton 定理 ; 


1 2 1 2 
A=213 13 -1 
2 3 7 1 
| 3 6 
解 E 
1 2 1i1 2 
3 -1 3 -1 
a = ; 
2 5 了 1 
1 2 3 6 


CharacteristicPolynomial|[a, x| 

—196 + 161x + l5x:— i3x:+ x 

- 196 IdentityMatrix[4] + 161 a + 15 MatrixPower[a,2 | 

-13 MatrixPowear[a,3|] + MatrixPower[a, 4|//NMatrixForm 
品 0 


Le 
fr 5 5 


D 0 
0 0 
用 0 


12.38 给 出 10 X 10 阶 希 耳 伯 特 短 阵 h, ,= 一 的 近似 特征 值 


解 《下 

n= 10; 

hilbert = Table[l1/{i+j-1), {fi,1,n}l, 1j,1,n}]: 
hilbert//MatrixForm 
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”i111i11l1 1 1 1 1 

2 3 4 5 G 7 | 9 10 
i111 1 11 1 1 1 1 
2 了 | 5 五 了 3 9 ]0 11l 
1 1 1 L1111 1 1 1 
3 此 5 6 7 B 9 10 11 iz 
11 1 411 
4 5 6 7 名 9 10 11 2 13 
1 1 1 i111 1 1 1 1 
5 6 7 8 9 ]0 1]l1 12 13 14 
1 12 i111 
白 了 8 9 10 11 12 13 14 15 
1 1 1 1 1 211 
7 | 9 10 11 12 3133 14 15 1¢ 
1 1 1 111 1 1 1 1 
8 9 0 ll 12 13 id 15 18 17 
1 1 
9 10 i311 jiz 13 14 15 16 17 18 
lllil11 1 1 1 1 
]0 11 12 13 114 15 16 17 18 19 


Eigenvalues[N[hilbert] | 
11.75192, 0.34293, 0.0357418, 0.00253089, 
0.00012875, 4.72969 X 10- 5 1,22897 x 107”， 
2.14744 X 10-”，2.26675 x 1071, 1.09325 x 10 13| 


12.39 给 出 元 素 为 如 下 表示 的 10 x 10 阶 和 矩阵 A& 的 近似 特征 值 ， 
i+j 一 1 如 果 i+j 所 11， 
7 21 一 i 一 j, 如 果 i+j>11， 


如 


解 4 天 

f[i-, ji-] := i+j-1/i+j S11 
fli., j-] := 21-1-j/i+j] >11 
a = Array[lf, |10,10}]; 


a/ /MatrixForm 
1 2 3 4 5 6 了 9 10 
2 3 #4 5 6 7 8 3 10 3 
3 4 5 6 7 8 9 i100 9 8 
4 5 6 ?7 8 9 10 9 8 7 
5 6 7 8 3 19 8 7 6 
6 7 8 3 i0 9 8 7 6 5 
7 8 9 1l0 3 8 7 6 5 4a 
8 3 lo 3 8 7 6 5 4 3 
9 10 9 8 7 6 5 4 3 2 
10 3 8 7 56 5 4 3 2 1 

Eigenvalueg[N[al|| 


167.8404， 一 20.4317，4.45599， 一 2.42592，1.39587 
-1., 0.756101, -0.629808, 0.55164, — 0.512543| 


12.7 对 角 化 与 约 当 标准 型 
给 定 wn x n 阶 答 阵 太 ,如 果 存 在 矩阵 己 , 使 得 4 = PDP 1 其 中 忆 为 对 角 矩 阵 ,那么 称 
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4 为 可 对 骨 化 的 志 阵 . 

并 不 是 每 个 抢 阵 都 是 可 对 和 角 化 的 .然而 ,可 以 证 明 ,如 果 A 的 特征 向 黄 构 成 完全 集 , 即 A 
有 nn 个 线性 无 关 的 特征 向 量 ,那么 A 是 可 对 角 化 的 .这 时 和 抢 阵 P 的 各 列 元 素 就 是 4 的 特征 向 
量 , 对 角 和 矩阵 D 的 主 对 角 元 素 就 是 相应 的 特征 值 . 


18 -51 27 ”15 
8 -24 1d4 -8 


例 29 a = 
15 -48 28 -15 
15 ~-47 25 -12 
Eigenvalues[a] 
11,2,3,41 < 由 于 特征 值 不 同 , 所 有 对 庶 的 特征 向 量 是 线性 无 关 的 ， 
Eigenvectors[a] 
| 13,2,3,21, 10,1,3,21,11,0,0,1|,13,1,2,3|| 
Pp = Transposel % ] < 转 置 使 得 特征 向 基 成 为 第 阵 的 列 ， 


1 13,0,1,3|, 12,1,0,11, 13,3,0,21,12,2,1,3}| 
d = DiagonalMatrix[ Eigenvalues[a|]] 
i111,0,0,01, 10,2,0,0),10,0,3,01,10,0,0,4|| 
p.d. Inverse[ p]//MatrixForm 

18 —51 27 ~15 

8 -24 14 一 各 

]5 48 28 -15 

]5 一 4 25 -12 


+— p.d. Inverse[p] = &. 


总 之 ， 

MatrizForm[a] == MatrizxForm[p].MatrixForm[d]. NatrixForml Inverse[p}] 
18 -51 27 一 15 3 0 1 3 DO 0 一 上 4 一 ] 
| —24 14 -8 _ 2 1 0 1 0 2 0 0 一 ] 之 一 1 
15 -48 28 -15| [3 302| oo30| |-.s 1 -9 6 
15 一 47 25 一 12 2 1 0 0 0 3 一 里 9 一 3 


前 面 已 指出 ,并 不 是 每 个 矩阵 都 基 可 对 角 化 的 , 然而, 存在 一 种 形式 , 名 为 约 当 标准 型 , 每 
个 焉 阵 都 可 以 变换 到 这 种 形式 上 ， 


一 个 约 当 块 就 是 一 个 方 阵 , 主 对 角 线 上 元 素 相同 , 主 对 角 线 的 元 素 都 是 1, 其 它 元 素 都 是 
等 , 轩 


4 1 0 0 0 
0 1 0 0 
0 A 1 0 
0 0 0 0 2 A 
如 果 A 为 xn x n 阶 矩 阵 ,那么 存在 矩阵 Q, 使 得 A = QJQ ,其 中 
j= 0 fa 0), 
0 0 0 … 六 


Ji 为 约 当 块 .在 不 同 块 中 的 特征 值 可 以 不 同 . 对 十 给 定 的 一 个 特征 值 , 它 所 对 应 的 不 同 约 当 块 
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的 数 日 等 于 对 应 于 这 个 特征 慎 的 线性 无 关 的 特征 |9j 量 数 . 


5 4 3 | 
例 30 a = 区 0 -| 


例 31 


例 32 


1 一 过 1 
Rigensystem[a] 
[|| ~ 2,4,4!, i ,1,1,}1,—1,11,10,0,0|1| 


所 以 特征 值 为 -2 与 4, 分 别 对 应 的 特征 问 量 为 {-1, 1, 1) 与 {1，-1, 1). 向 基 10， 
0, 0+ 不 是 特征 向 量 , 之 所 以 出 现 它 , 就 是 因为 不 能 找到 第 二 个 线性 无 美的 特征 向 是 . 
为 了 构造 出 第 阵 入 ,标准 的 做 法 是 找到 向 量 x 使 得 (A -4 站 xx= (lt 一 1, 1).x 称 
为 广义 特征 同 量 . 


LinearSolvela - 4 IdentityMatrix[3], 11, - 1, 1}] 


11,，0, 01 
这 样 就 可 以 构造 出 征 阵 日 与 了 
-1 1 1 
a= 1 -10|; | a 的 列 由 a 的 特征 向 量 与 广义 特征 向 量 构 成 。 | 
1 1 0 
-2 0 0 
] = | | | 
0 Oa 


9q.j.Inverse[q|//MatrixForm 


9 4 3 
-1 0 一 : 
l -2 1 


出。 JordanDecomposition[ 矩阵 ] 计算 出 算 阵 的 约 当 标准 型 .所 得 结果 形式 为 g,j|, 其 
中 g 与] 分 别 对 应 于 上 面 描述 的 窍 阵 QQ@ 与 J. 


1 -2 1 
{gq, j) = JordanDecomposition[al]; 
qi/MatrixForm 


— 1 1 1 
1 ~ 0 
1 1 0 


]j //MatrixForm 


-2 0 0 
0 4 1 < 当然 这 与 在 例 30 中 得 到 的 结果 一 致 
0 0 a 


18 -S51 27 -15 

8 - 24 14 一 号 

15 ~d4 ae -15 

15 -47 25 -12 
{a, j| = JordanDecomposition[a]: 
可 /MatrixForm 
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3 D0 i 3 
2 1 0 1 
3 3 0 2 
2 2 1 3 
j /MatrixForn 
1 0 0 0 
0 2 0 0 在 这 个 例子 中 , 约 当 埠 阵 简化 次 对 角 阵 , 这 是 因为 知 阵 
0 0 3 0 a 具有 完全 集 的 特征 向 有 
0 0 4 


在 Mathematica 中 还 有 可 以 进行 QR 分 解 与 Schur 分 和 解 等 其 它 分 解 操 作 的 命令 ,从 本 书 
中 在 此 不 对 它们 进行 讨论 ,相应 命令 的 名 称 分 别 为 GRDecomposition 与 SchurDeconposition. 


习题 解答 


12.40 ”构造 一 个 5 x 5 阶 窍 阵 , 它 的 特征 信 分 别 为 -2，- 1,，0，1，2， 相 应 的 特征 向 量 为 
d, 1, 0, 0, 0), (0, 1, 1, 0, 0), (0, 0, 1, 1, 0), {0, 0, 0，1,，1), 
Cl, 0, 0, DO, 1), 
和 解 于 
d = DiagonalMatrix[| -2, -i, 0, 1, 21]; 
p= Transpose[ {|1, 1, 0, 0, 0}, 10, 1, 1, 0, 0}, {0, 0, 1, 1, 0}, 
0, 6, 8, I, 1}, {1, 6, 0, 9, 1}}]; 


a = Pp.d.Inverselp]; 


Ba/ /HatrixForn 
0 一 取 2 一 也 2 
1 3 1 1 1 
2 2 2 2 
1 _i 1 -1 
2 2 2 2 2 
1 1 1 1 1 
2 2 2 之 2 
1 1 1 了 1 
2 2 2 2 2 
， a b 
12.41 证 明和 矩阵 | ”| 有 实 特征 什 当 且 仅 妆 a + 4br 一 2ad + d: 之 0. 
I 
解 E 
m = {1a,bl, {c,d}}: 


Eigenvalues[ {|a, bl, [ce,d}}] 
[二 (fa+d- /rap 2ad1F), 1 (atdt /ordbo 2ad+E) | 
所 以 特征 值 为 实数 当 且 仪 当 上 述 根 号 下 的 表达 式 为 非 负 数 . 


12.42 构 阁 一 个 7 x 了 阶 的 由 随机 数字 组 成 的 矩阵 ,说 明 这 个 矩阵 特征 值 的 和 等 于 它 的 迹 ， 
特征 值 的 积 等 于 它 的 行列 式 ， 


: 304 ， 
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解 # 池 
a = Table[Randon[ Integqer, {0,91], {i,1,7}, {1j,1,7}}; 


a //NMatrixForn 


i5 8 7 0 9 5 3 
5 6 3 56 9 0 4 
5 3 3 0 0 1 3 
1 3 9 9 9 9 5 
5 0 2 8 4 1 3 
9 5 7 4 9 9 3 
1 3 1 5 5 1 3 


eigen = Eigenvalues[N[a|]| 
131 ,4389，6.08322 + 4.84653 i, 6.08322 一 4.84653 二 ， 一 6,43529, 
1.52463 + 3.69404 i, 1.52463 — 3.694064 i, —0.,215263| 


eigen[[i]] 或 者 Sum[eigen[[i]]，fi,1,7] 


4d0, 二 ,1 
Trial] 
0 


[| eigen[[i]] 或 者 Product[eigen[[i]], {i,1,7}] 


A2072, + 00, 1 
Det[a | 
42072 


矩阵 PP 称 为 正 交 和 窍 阵 是 指 它 满足 P'P = I.( 即 止 交 答 阵 的 道 是 它 的 转 置 矩阵 . ?如 果 
可 以 找到 正 交 矩阵 P, 使 得 算 阵 A 对 角 化 , 则 称 A 为 可 正 交 对 和 角 化 的 抢 阵 . 只 有 对 称 
第 阵 才 可 以 正 交 对 骨 化 .{ 瑟 阵 为 对 称 的 是 指 它 满足 A = A .和 如果 A 为 对 称 阵 , 那么 
可 以 迹 明 对 诬 于 不 同 特征 值 的 特征 向 量 是 正 变 的 .对 于 下 述 矩 阵 A, 求 出 使 得 它 正 
交 对 和 角 化 的 矩阵 P: 


3 1 0 0 0 
1 3 0 0 0 
4= 0 0 2 1 1 
0 0 1 2 1 
0 0 1 1 2 
解 # 汪 
< LinearAlgebra~ Orthogonalization -~ 
3 1 0 0 0 
1 3 0 0 0 共有 五 个 特征 值 ,其 中 两 个 的 重 数 为 2. 把 它们 分 成 
a= |002 1 1|, 三 组 特征 空间 , 并 分 别 应 用 Gram-Schwmidt 正 交 化 过 
go 0 121 程 .所 需 正 变 征 阵 的 列 就 是 由 Gram-Schmidt 过 程 后 | 
得 到 的 正 交 问 量 构 成 葛 . 
y 0 1 1 2 


[valuas, vectors! Eigensystem[ a| 
111,1,2,4,4|, 110,0, ~ 1,0,1!,10,0,—1,1,0|, 
{|—1,1,0,0,0;,10,0,1,1,1;,11,1,0,0,0)!: 


eigenspacel = {vectors[[11]l, vectors{[2]|1}; 
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aigenspace2 = |vectors[[3]]]; 
eiganspaece3 = {vectors[[4]]， vectors[[5]]}. 
vl = GramSchmidt| eigenspacel |]; 
V2 


GramnSchmidt[ eigenspace2 ] ; 

v3 = GramSchmidt[eigenspace3]; 

< LinearAlgebra~™ MatrixManipulation-~ 

orthogonalMatrix = Transpose[AppendColunns[vl1, v2,v3]]; 
orthogonalmnatrix //NMatrixForn 


1 1 

9 一 -二 人 一 

v2 2 

1 1 

0 0 -二 0 一 

v2 v2 

.1 1 , i, 
2 v6 .3 
2 ] 

0 一 0 一 0 
4 3 3 
] 1 1 

二 -六 0 二 0 
v2 v6 v3 


Pp = orthogonalmatrix; 
Transpose[ p]. p/ /HatrixForn 
] 0 0 0 0 


0 1 .0.00 
0 0 1 0 0 < 这样 做 就 是 方 了 检验 矩阵 正 变性 ， 
0001 0 
0000 1 


d = DiagonalMatrix| values|; 
p.d. Transpose[p]//MatrixForn 
1 0 0 0 

3 0 

0 2 

0 1 
0 1 
NatrixForn[a] == MatrixForm[p]. MatrixForn[d]. NatrixForm[Transposefp]] 


一 这 就 又 得 到 了 初始 矩阵 . 


Li 


0 
1 
] 
2 


PP 


0 0 -+ 二 

v2 vy2 
3 1 0 0 0 0 0 二 0 二 1 0 0 0 0 

1 3 9 0 0 2 "2 0 

1 0 0 0 

0 0 2 1 1 -这 - 0 二 0 
= = 万 后 /3 0 0 2 0 0 
0 0 1 2 1 0 00 40 
0 0 1 1 2 DO 0 0 0 4 


C3 


[| 
| 
mi _w] 
yl 
Lem 


lL 


证 


" 303 


"OO 


Maihematica 使 用 指南 


0 0 -十 
w 

1 

0 0 一 一 
| v6 
1 1 ) 

v2 2 

1 

0 0 一 
v3 

1 1 , 


Cy 


A.1 纯粹 函数 


困 数 是 两 个 数 集 A 与 日 之 间 的 对 应 关系 ,这 个 对 应 关系 满足 :对 于 4 中 的 每 个 数 , 在 BB 
中 都 存在 惟一 的 数 林 它 对 应 .例如 ,平方 图 数 写 义 一 个 对 座 基 系 , 它 使 得 每 个 实数 ,有 惟一 的 非 
负 实 数 与 它 对 应 ,这 个 非 负 实 数 称 为 原来 那个 实数 的 平方 . 

虽然 通常 采用 写法 ft.z) = xx 来 表示 图 煞 ,但 我 们 必须 清楚 这 里 的 字 苹 z 没有 任何 诛 
来 字面 上 的 特 吻 舍 义 , 它 只 是 表示 是 尽 函 数 中 的 平方 过 程 . 

虽然 在 Mathematica 中 我 们 可 以 用 变量 来 定义 图 数 ,例如 f[x_-] = 天 ,但 是 变量 x 只 是 一 
个 三 元 , 没有 任何 本 来 意义 .即使 我 们 把 x 换 成 yY 或 z, 甚 至 其 它 符 导 , 这 也 表示 同样 的 函数 ， 

所 谓 纯粹 函数 就 是 不 引用 特定 变 基 进行 定义 的 国 数 , 这 时 定义 中 的 变 基 依次 用 闪 1, 站 2， 
# 3 等 表示 . 为 了 把 纯粹 函数 与 其 它 的 Mathematica 构造 区 分 开 来 , 在 函数 定义 的 尾部 如 上 符 
导 8. 一旦 定 浆 了 纯粹 函数 ,那么 就 可 以 如 同 其 它 函 数 - - 样 进 行 处 理 . 


例 1 Ff = #1*& 
f[3] 
9 
flx] 


x 


EL[a+bj 
(a+p)’ 


例 23 9g = 宁 1 亲 2*° + 3& 
g[ 3, 4] 
31 
gu vj 


3 二 uv 


虽然 纯粹 函数 概念 的 提出 非 第 自然 ,但 我 们 却 有 可 能 一 直 使 用 Mathematica, 而 从 来 用 不 
到 纯粹 函数 .然而 有 时 候 Mathematica 会 把 结果 表示 成 纯粹 函数 的 形式 , 因此 有 必要 在 这 里 简 
要 介绍 一 下 .有 兴趣 的 做 者 可 以 在 Stephen Wolfram 的 背 作 The Mathematica Book 一 - 书 中 或 者 
Help 菜单 中 找 淹 关 寸 纯粹 函数 的 更 多 信息 . 


习题 解答 


AL 把 计算 一 个 数 的 平方 与 它 的 平方 根 之 各 的 过 程 表 示 成 纯粹 函数 ,并 计算 这 个 画 数 在 9 
处 的 但， 
解 4 
E = 并 12 + Sart| #1]&; 
£19] 
B44 


A.2 ”有 一 个 数 ,是 由 英 个 数 构造 而 来 的 , 具体 过 程 是 把 两 个 数 的 和 的 平方 与 它们 的 平方 和 圳 


"308 ， 
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起 来 得 到 的 新 数 .把 这 个 操作 表示 成 纯粹 函数 ,并 计算 当 给 定数 为 3, 4 时 的 值 . 
解 

g = (村 1 + 并 2)"2 + #12 + #2"°2&; 

g[3,4] 

74 


A.3 把 函数 Sin 的 导数 表示 成 纯粹 函数 ,并 计算 它 在 x/6 处 的 值 . 
解 屿 


A.4 定义 申 数 f(x) = (1 + x + zx*);, 并 把 它 的 2 阶 导 数 表示 成 纯粹 函数 ， 
解 上 
E[x-]= (i+ x+ x 1 
” 
20(1 十 2 并 1)(1+ 村 1 十 间 13+ 1001 + 井 1 + 间 坟 区 


,$5 把 下 述 币 分 方程 的 解 表示 成 纯粹 昭 数 ,并 计算 它 在 zz = x/4 处 的 值 ; 

2 
+ y=0, y (0) = y(0} = 1, 

解 # 汪 

DSolve[ {y [x!) + Y[zj == 0, ¥[0] == 1, ¥ [0] 三 与 1}， Yr x] 

jy (Cos[ 补 1j] + Sin[ #1] &)|| 

solution = s% Tii,1,2]] 

Cos[ HH 1) + Sin| #1|& 

solution| re | 


万 
和 .2 上下文 环境 


我 们 通常 都 是 用 名 称 定义 符号 的 , 从 而 达到 可 以 重复 使 用 这 个 符号 的 目的 , 然而 有 时 候 名 
称 就 显得 有 些 不 实用 , 使 用 起 来 很 麻烦 .所 谓 上 下 文 环 境 就 是 在 一 次 Mathematica 操作 中 提供 
的 帮助 组 织 符 导 的 工具 ， 

实际 上 ,符号 的 完整 名 称 是 由 两 部 分 组 成 的 , 即 上 下 文 名 称 与 短 名 称 , 两 者 间 用 反 引 号 
(分开 . 因 此 反 引 号 也 称 为 上 下 文 记号 . 


例 3 在 下 面 的 例子 中 ,虽然 符号 atomicnumber、 au 与 atomicweight > au 有 相同 的 短 省 称 am 
( 金 的 化 学 符号 ), 但 它们 是 不 同 的 符号 . 
atomicnumber ~ au = 79; 
atomicweight~au = 196.967; 


ticnunmber ~ a 


?9 
atomicweight ~ au 


-9 .967 


当 开 始 一 次 Mathematica 操作 时 , 缺 省 的 上 下 文 环 境 是 6lobal*, 因此 符号 obj 就 等 价 于 
Global- obj. 可 以 通过 重 定义 符号 $ Context 的 值 来 改变 这 个 缺 省 设 界 . 

加 ”$Context 表示 当前 缺 省 上 上 下文 环 境 . 

上 Context[ 符 号 ] 返 回 符号 的 上 下 文 环 境 . 


例 4 aa = “gold; 
atomicnumber“au = 79; 
atomicweight ~ au = 196.967; 
au 
gald 
$ Conterxt = “atomicnupber™; < 由 于 工 下 文 名 称 是 字符 串 , 因 此 须 倘 有 届 引号. 
au 
19 
$ Conterxt = atomnicwneight™、 ; 


Ea 

196.967 

$ Context = “Global~“; 
BU 


gold 
内 置 Nathematica 符号 的 上 上 目 交 环境 是 System” . 


例 5 tontexrt|[Pi| 
SYstem™ 


经 第 见 到 在 不 同上 下 文 环境 中 存在 同样 短 名 称 的 从 导 .如 果 只 使 用 了 短 名 称 ,那么 Math- 
ematica 就 会 在 称 为 $ ContextPath 的 列表 中 确定 它 的 位 置 . $ ContextPath 的 默认 值 为 161ob- 
al™, System™!. 

加 ”$ContextPath 表示 当前 的 上 下 文 搜索 路 径 . 

加 Context[] 给 出 当前 Mathematica 操作 中 所 有 上 和 下文 环 境 的 名 称 列表 ， 


例 6 au = “geld ， 
atonmnicnumber ~ au = 79: 


atomicweight “au = i196.967; 
$ ContertPath 
Global ~ ,System™ | + 这 是 默认 的 上 下 文 路 径 . 
$ ContextPath = Join[ $ ContertPath, [| "atomicweight ~ "}, 
六 atomicnumber ~ ] 
|GlLebal ~ , System™~, atomicweight“, atomicnumber™ | 
al 


gOld = 一 Global* 是 $ ContextPath 中 第 - -个 元 素 . 


Mathematiw8 恒 用 指 附 


一 


Remove| Global ~ au] 

aU 一 丙 在 atomicweight* 基 $ contextpath 中 和 刀 人 育 au 的 第 一 :个 元 素 . 
196.967 

Remove[atomicweight ~ aul] 

au 在 atonicnumber~ 蚌 二 ContextPath 中 包 当 au 的 第 一 个 元 素 
了 日 


在 使 用 软件 包 宁 和 节 见 的 一 种 错误 就 是 在 软件 包 上 载 之 前 就 调用 了 命令 或 函数 的 名 称 . 如 
果 这 时 候 再 上 载 软 件 包 , 已 经 使 用 的 命令 或 顺 数 就 好 像 不 可 再 被 调用 . 


例 7 图 数 DaysBetween 包含 在 软件 包 Miscellanecous ~Calendar~ 中 , 它 计算 两 个 措 定 日 期 间 

的 天 数 ， 

DaysBetween[ {1999,1,1), |2000,1,1|)] 一 在 上 载 软 件 包 前 就 让 用 了 沿 数 . 

DaysBetween| }1999,1,1|, |12000,1,11!| 

<< Miscellaneous™ Calendar ~ 

DaysBetween: :shdw : Symbol DaysBetween appears in mltiple contexts IMiscella- 
meous ~ Calendar™ , Global™ |; definitions in context Miscellaneous ~ Calendar™ 
may shadow or De shadowed by other def initions. 

【特写 DaysBetween 出 现在 多 个 上 下 文 jMiscellaneous~Calenhdar- ，Global~ | 中 ;在 上 
下 让 Miseellaneous ~ Calendar ~ 中 的 定 余 吕 能 会 路 盖 其 它 定 交 , 或 者 被 其 它 定 六 窟 


壹 . ) 


DaysBetween[ |1999, 1,1]，{2000,1,1]] Mathematica 默认 信 仍 是 未 定义 的 荡 
DaysBetween| 11999, 1,1|，|2000,1,1|] 

如 果 指 定 了 完整 的 上 下 诡 路 径 , 那么 就 会 执行 正确 的 操作 ， 

Miscellanecus™ Calendar ~ DaysBetween| |1999,1,1|), {2000,1,1|] 

365 

如 过 去 控 了 了 Global 、 DaysBetween, 那么 在 Miscellaneous ~ Calendar* 中 的 函数 就 可 以 
直接 调用 了 . 

RemoveLDaysBetween] 

DaysBetween{ |1999, 1,1), {2000,1,1|] 

355 


入.3 模式 


你 一 定 已 经 注意 到 在 Mathematica 中 定义 函数 时 , 要 使 用 下 划 线 (_). 实际 上 , 下划线 的 使 
用 是 Mathematica 中 的 一 个 重要 概念 , 称 为 模式 匹配 ， 
上 所谓 愉 式 就 是 类 似 于 x- 这 样 的 包含 下 划 线 字符 的 表达 式 , 模式 可 以 表示 任何 表达 式 . 因 
此 f[x. ] 就 是 指定 如 何 对 任何 参数 值 应 用 函数 的. 当 定 义 了 通 数 后 ,如 f[x.] = x, 那么 就 
告诉 Mathematica 只 要 有 可 能 ,就 自动 应 用 变换 规则 f[x. ]j—x. 
与 之 相对 许 的 ,对 flx]( 没 有 T 划 线 )? 的 变换 规则 只 是 指定 对 文字 开 达 式 f[x] 的 变换 方 
式 , 而 对 f[y],f[z] 等 则 不 做 任何 变换 . 


例 8 
Clearlf]| Clear[f | 
f[x.| = x flx] =x°; 
£[x] ELzx] 


上 卫 


ELY] ELYj 
了 f[y] 
E[a+hb] 下 [aa 二 上] 
(a+ b)’ fla+bl 


x- 可 被 任何 表达 式 所 区 配 


例 9 1 + x+ x .x Log[gq] 
1 + Loglp] + Loglq] *- 所 有 的 指数 都 变换 成 Log. 
1 + r+ xy/. x *Loglg] 
1 + x?+ Log[o] 一 只 有 癌 被 变换 了 ， 


通过 模式 可 以 指定 表达 式 的 类 型 以 及 格式 . 例如 ， Integer 就 是 整数 模式 . 类 似 地 ， 
_Rational， Real 以 及 _ Complex 都 是 可 接受 的 模式 ,表示 其 它 类 型 的 数 ， 


例 10 fact[n_ Integer] = nl ; Factorial|[ 5] 
fact[n_ Real] = “undefined ”; 120 
,fact[5] Factorial[5.5] 
120 287 .555 
facti15.5] 
Undefined 


例 11 在 这 个 例子 中 定义 如 下 函数 ; 
XYy, 如 果 x 与 y 都 是 整数， 
fx y) = 上 如 果 zx 与 y 都 是 实数 ， 
xz-y， 如 果 工 或 y 中 有 一 个 是 整数 , 另 一 个 是 实数 ， 
f[a. Integer, b_ Integer| = ab; 
fla_Real, b_Real|] = a + b: 
f[a_ Integer, b.Real] = fla.Real, b_Integer] = a - bb; 
£f[2,31 
总 
E[2.,3.] 
5. 
f[2.,3| 
一 工 ， 
f[2,3.] 
一 1. 
f[I,1 1 
f£[i,1] < 一 对 于 复 参 数值 ,f 没有 定义 . 


